<<>> <> <> <> <> <> <> <> <> <<3d Tool: Rendering, Texturing, Lighting>> DIRECTORY Controls, G2dBasic, G3dBasic, G3dControl, G3dLight, G3dMatrix, G3dRender, G3dShape, G3dTimeTrees, G3dTool, G3dVector, G3dView, Imager, IO, MessageWindow, Rope; G3dToolRenderImpl: CEDAR PROGRAM IMPORTS Controls, G3dControl, G3dLight, G3dMatrix, G3dRender, G3dVector, G3dView, IO, MessageWindow, Rope EXPORTS G3dTool ~ BEGIN <> ROPE: TYPE ~ Rope.ROPE; STREAM: TYPE ~ IO.STREAM; ClickProc: TYPE ~ Controls.ClickProc; Typescript: TYPE ~ Controls.Typescript; Pair: TYPE ~ G2dBasic.Pair; Triple: TYPE ~ G3dBasic.Triple; RealSequence: TYPE ~ G3dBasic.RealSequence; CameraControl: TYPE ~ G3dControl.CameraControl; Light: TYPE ~ G3dLight.Light; LightSequence: TYPE ~ G3dLight.LightSequence; Context3d: TYPE ~ G3dRender.Context3d; RGB: TYPE ~ G3dRender.RGB; TextureStyle: TYPE ~ G3dRender.TextureStyle; Tool: TYPE ~ G3dTool.Tool; ViewProc: TYPE ~ G3dTool.ViewProc; ShapeProc: TYPE ~ G3dShape.ShapeProc; <> <> <> <> <> <> <> <> <<-- 1 -- ["Change Display Mode", Rope.Cat["Mode now ",>> << G3dRender.RopeFromDisplayMode[context3d.displayMode]]],>> <<-- 2 -- Controls.BoolRequest[t.antiAliasing, "Anti Aliasing"],>> <<-- 3 -- Controls.BoolRequest[depthBuffering, "Depth Buffering"],>> <<-- 4 -- Controls.BoolRequest[context3d.clear, "Enable Clear Before Render"],>> <<-- 5 -- Controls.BoolRequest[t.normalCoding, "Normal Encoding"],>> <<-- 6 -- ["Background", "r, g, b <0..1> background color"],>> <<-- 7 -- ["Background Image", "AIS name of background picture"],>> <<-- 8 -- ["Viewport", "Set Screen Viewport"],>> <<-- 8 -- ["Render to AIS File(s)", "Render an arbitrarily sized image to ais file(s)"],>> <<-- 9 -- ["Render to RGB File", "Render arbitrarily sized image to rgb (Abekas) file"],>> <<-- 10 -- Controls.BoolRequest[t.autoRender, "Auto Rendering"],>> <<-- 11 -- Controls.BoolRequest[t.drawAxes, "Axes"],>> <<-- 12 -- Controls.BoolRequest[t.annotation, "Annotation"]]];>> <> <> <<1 => context3d.displayMode _ SELECT Controls.PopUpRequest[["Render Ops"], LIST[>> << -- 1 -- ["Gray", "Set display mode to gray (8 bits/pixel, no color)"],>> << -- 2 -- ["Dither", "Set display mode to dither (8 bits/pixel, with color)"],>> << -- 3 -- ["Full Color", "Set display mode to full color (24 bits/pixel)"]]] FROM>> << 1 => gray, 2 => dither, 3 => fullColor, ENDCASE => context3d.displayMode;>> <<2 => SetAntiAliasing[t, t.antiAliasing _ NOT t.antiAliasing];>> <<3 => SetDepthBuffering[t, NOT depthBuffering];>> <<4 => EnableClear[t, NOT context3d.clear];>> <<5 => SetNormalCoding[t, NOT t.normalCoding];>> <<6 => SetBackground[t];>> <<7 => SetBackgroundImage[t];>> <<-- 8 => SetViewport[t];>> <<8 => RenderImageToFile[t, ais];>> <<9 => RenderImageToFile[t, rgb];>> <<10 => t.autoRender _ NOT t.autoRender;>> <<11 => IF (t.drawAxes _ NOT t.drawAxes)>> <> <<12 => t.annotation _ NOT t.annotation;>> <> <> <> <<};>> <<};>> <<>> Blink: PROC [r: ROPE] ~ { MessageWindow.Append[Rope.Concat["\t\t", r], TRUE]; MessageWindow.Blink[]; }; <> <> < CONTINUE];>> <> <<};>> <<>> UpdateCamera: PUBLIC PROC [tool: Tool] ~ { moves, rots: Triple; c: Context3d ¬ tool.context3d; [moves, rots] ¬ G3dView.FromEyeLookUp[c.eyePoint, c.lookAt, c.upDirection, c.fieldOfView]; G3dControl.UpdateControl[tool.camera, tool.camera.par.xMov, moves.x]; G3dControl.UpdateControl[tool.camera, tool.camera.par.yMov, moves.y]; G3dControl.UpdateControl[tool.camera, tool.camera.par.zMov, moves.z]; G3dControl.UpdateControl[tool.camera, tool.camera.par.xRot, rots.x]; G3dControl.UpdateControl[tool.camera, tool.camera.par.yRot, rots.y]; G3dControl.UpdateControl[tool.camera, tool.camera.par.zRot, rots.z]; G3dControl.UpdateControl[tool.camera, tool.camera.scale, 1.0]; G3dControl.UpdateControl[tool.camera, tool.camera.fieldOfView, c.fieldOfView]; }; <> <> <> <> <> <> < [width, height (defaults %g %g)]: ",>> <> <> <> < {Blink["Bad Format"]; CONTINUE};>> <> < CONTINUE];>> <<};>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> EnableClear: PUBLIC PROC [tool: Tool, on: BOOL] ~ {}; <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> AbortButton: PUBLIC ClickProc ~ {}; <> <> <<};>> <> <<>> <> <> <> <> <> <> < 0.0 THEN f.antiAliasing _ TRUE;>> <> <<};>> <<>> <> <> <> <> <> <<};>> <<-- r: Imager.Rectangle _ tool.context3d.preferredViewPort;>> <<-- IF ((r.x+r.w > 1024 OR r.y+r.h > 768) AND tooldisplayMode = gray) OR>> <<-- ((r.x+r.w > 640 OR r.y+r.h > 480) AND tooldisplayMode # gray) THEN {>> <<-- Blink["size too large; try RenderToFile "];>> <<-- RETURN;>> <<-- };>> <> < {Blink[reason]; GOTO Bad}];>> <> <> <> < NULL;>> <<};>> <> <> <> <> <> <<};>> <> <> <> <<};>> <> <> <> <<};>> <> <<};>> <<>> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <<};>> <> <