DIRECTORY CSGGraphics, GraphicsColor, IO, Rope, SV2d, SV3d, SVArtwork, SVModelTypes, SVSceneTypes, TFO3d; TFO3dImpl: PROGRAM IMPORTS CSGGraphics, GraphicsColor, IO, SVArtwork EXPORTS TFO3d = BEGIN Assembly: TYPE = SVSceneTypes.Assembly; Box: TYPE = SVModelTypes.Box; Color: TYPE = GraphicsColor.Color; DrawStyle: TYPE = SVModelTypes.DrawStyle; Point2d: TYPE = SV2d.Point2d; FileCamera: TYPE = SVSceneTypes.FileCamera; FrameBox: TYPE = SVModelTypes.FrameBox; Material: TYPE = SVModelTypes.Material; Matrix3by3: TYPE = SV2d.Matrix3by3; Matrix4by4: TYPE = SV3d.Matrix4by4; OMap: TYPE = SVModelTypes.OMap; Plane: TYPE = SV3d.Plane; Point3d: TYPE = SV3d.Point3d; SpaceFunction: TYPE = SVModelTypes.SpaceFunction; Tube: TYPE = SVModelTypes.Tube; SMap: TYPE = SVModelTypes.SMap; FileoutBOOL: PUBLIC PROC [f: IO.STREAM, bool: BOOL] = { IF bool THEN f.PutRope["TRUE"] ELSE f.PutRope["FALSE"]; }; FileoutMatrix: PUBLIC PROC [f: IO.STREAM, mat: Matrix4by4] = { f.PutF["[[%g",[real[mat[1][1]]]]; FOR j: NAT IN[2..4] DO f.PutF[",%g",[real[mat[1][j]]]]; ENDLOOP; f.PutF["]"]; FOR i: NAT IN[2..3] DO f.PutF[", [%g",[real[mat[i][1]]]]; FOR j: NAT IN[2..4] DO f.PutF[",%g",[real[mat[i][j]]]]; ENDLOOP; f.PutF["]"]; ENDLOOP; f.PutF["]"]; }; FileoutMatrix3by3: PUBLIC PROC [f: IO.STREAM, mat: Matrix3by3] = { f.PutF["[[%g",[real[mat[1][1]]]]; FOR j: NAT IN[2..3] DO f.PutF[",%g",[real[mat[1][j]]]]; ENDLOOP; f.PutF["]"]; f.PutF[", [%g",[real[mat[2][1]]]]; FOR j: NAT IN[2..3] DO f.PutF[",%g",[real[mat[2][j]]]]; ENDLOOP; f.PutF["]]"]; }; FileoutPoint3d: PUBLIC PROC [f: IO.STREAM, point3d: Point3d] = { f.PutF["[%g,%g,%g]",[real[point3d[1]]],[real[point3d[2]]],[real[point3d[3]]]]; }; FileoutPoint3dAsPoint2d: PUBLIC PROC [f: IO.STREAM, point3d: Point3d] = { f.PutF["[%g,%g]",[real[point3d[1]]],[real[point3d[2]]]]; }; FileoutColor: PUBLIC PROC [f: IO.STREAM, color: Color] = { r, g, b: REAL; [r, g, b] _ GraphicsColor.ColorToRGB[color]; f.PutF["[%g,%g,%g]",[real[r]], [real[g]], [real[b]]]; }; FileoutSurface: PUBLIC PROC [f: IO.STREAM, surface: REF ANY] = { IF surface = NIL THEN f.PutF["NIL"] ELSE { WITH surface SELECT FROM tube: Tube => f.PutF["tube [radius: %g, height: %g]", [real[tube.R]], [real[tube.H]]]; box: Box =>{ f.PutF["box "]; FileoutPoint3d[f, [box.x, 2*box.halfY, box.z]]; }; spaceFunction: SpaceFunction => f.PutF["NIL "]; ENDCASE => ERROR; }; }; FileoutMaterial: PUBLIC PROC [f: IO.STREAM, material: Material] = { matRope: Rope.ROPE; matRope _ SVArtwork.MaterialToRope[material]; f.PutRope[matRope]; }; FileoutSMap: PUBLIC PROC [f: IO.STREAM, sMap: SMap] = { mapRope: Rope.ROPE; mapRope _ SVArtwork.SMapToRope[sMap]; f.PutRope[mapRope]; }; FileoutOMap: PUBLIC PROC [f: IO.STREAM, oMap: OMap] = { mapRope: Rope.ROPE; mapRope _ SVArtwork.OMapToRope[oMap]; f.PutRope[mapRope]; }; FileoutCamera: PUBLIC PROC [f: IO.STREAM, fileCamera: FileCamera] = { f.PutRope["Camera: "]; f.PutRope[fileCamera.name]; f.PutRope[" origin: "]; FileoutPoint3d[f, fileCamera.origin]; f.PutRope[" focusPoint: "]; FileoutPoint3d[f, fileCamera.focusPoint]; f.PutF[" slant: %g", [real[fileCamera.slant]]]; f.PutChar[IO.CR]; f.PutF["resolution: %g", [real[fileCamera.resolution]]]; f.PutF[" focalLength: %g", [real[fileCamera.focalLength]]]; f.PutF[" projection: %g", [rope[CSGGraphics.ProjectionToRope[fileCamera.projection]]]]; f.PutChar[IO.CR]; f.PutRope[" frame: "]; FileoutFrame[f, fileCamera.frame]; f.PutChar[IO.CR]; f.PutRope["clippingPlanes: "]; FileoutClippingPlanes[f, fileCamera.clippingPlanes]; f.PutChar[IO.CR]; f.PutRope["visibleAssemblies: "]; FileoutListOfRope[f, fileCamera.visibleAssemblies]; f.PutChar[IO.CR]; }; FileoutClippingPlanes: PUBLIC PROC [f: IO.STREAM, clippingPlanes: LIST OF Plane] = { firstPlane: Plane; IF clippingPlanes = NIL THEN RETURN; firstPlane _ clippingPlanes.first; FileoutPlane[f, firstPlane]; FOR list: LIST OF Plane _ clippingPlanes.rest, list.rest UNTIL list = NIL DO f.PutChar[',]; FileoutPlane[f, list.first]; ENDLOOP; }; CountClippingPlanes: PROC [clippingPlanes: LIST OF Plane] RETURNS [count: NAT] = { count _ 0; FOR list: LIST OF Plane _ clippingPlanes, list.rest UNTIL list = NIL DO count _ count + 1; ENDLOOP; }; FileoutPlane: PUBLIC PROC [f: IO.STREAM, plane: Plane] = { f.PutF["[%g,%g,%g,%g]", [real[plane.A]], [real[plane.B]], [real[plane.C]], [real[plane.D]]]; }; FileoutStyle: PUBLIC PROC [f: IO.STREAM, style: DrawStyle] = { styleRope: Rope.ROPE _ CSGGraphics.DrawStyleToRope[style]; f.PutRope[styleRope]; }; FileoutFrame: PUBLIC PROC [f: IO.STREAM, frame: FrameBox] = { f.PutChar['[]; FileoutPoint2d[f, [frame.downLeft[1], frame.upRight[2]]]; f.PutRope[", "]; FileoutPoint2d[f, [frame.upRight[1], frame.downLeft[2]]]; f.PutRope[" fullScreen: "]; FileoutBOOL[f, frame.fullScreen]; f.PutChar[']]; }; FileoutPoint2d: PUBLIC PROC [f: IO.STREAM, point2d: Point2d] = { f.PutF["[%g,%g]", [real[point2d[1]]], [real[point2d[2]]]]; }; FileoutListOfRope: PUBLIC PROC [f: IO.STREAM, ropeList: LIST OF Rope.ROPE] = { IF ropeList = NIL THEN RETURN; f.PutRope[ropeList.first]; FOR list: LIST OF Rope.ROPE _ ropeList.rest, list.rest UNTIL list = NIL DO f.PutRope[", "]; f.PutRope[list.first]; ENDLOOP; }; FileoutVisibleAssemblies: PUBLIC PROC [f: IO.STREAM, assemblyList: LIST OF Assembly] = { IF assemblyList = NIL THEN RETURN; f.PutRope[assemblyList.first.name]; FOR list: LIST OF Assembly _ assemblyList.rest, list.rest UNTIL list = NIL DO f.PutRope[", "]; f.PutRope[list.first.name]; ENDLOOP; }; END. ¦File: TFO3dImpl.mesa Last edited by Bier on January 14, 1985 0:14:31 am PST Copyright c 1984 by Xerox Corporation. All rights reserved. Contents: Useful functions for creating text files to describe 3d objects and scenes. (used by Fileout3dImpl, BasicObject3dImpl and intended for use by programs which define other master objects to implement their FileoutProc [see DisplayList3d]). Only writes the first 2 rows. Κ:– "cedar" style˜Iheadšœ™Iprocšœ6™6Jšœ Οmœ1™Lšœ!˜!šžœžœžœž˜Lšœ ˜ —Lšžœ˜Lšœ ˜ šžœžœžœž˜Lšœ"˜"šžœžœžœž˜Lšœ ˜ —Lšžœ˜Lšœ ˜ —Lšžœ˜Lšœ ˜ Lšœ˜—š Ÿœžœžœžœžœ˜BLšœ™Lšœ!˜!šžœžœžœž˜Lšœ ˜ —Lšžœ˜Lšœ ˜ Lšœ"˜"šžœžœžœž˜Lšœ ˜ —Lšžœ˜Lšœ ˜ Lšœ˜—š Ÿœžœžœžœžœ˜@LšœN˜NLšœ˜—š Ÿœžœžœžœžœ˜ILšœ8˜8Lšœ˜—š Ÿ œžœžœžœžœ˜:Lšœ žœ˜Lšœ,˜,Lšœ5˜5Lšœ˜—šŸœžœžœžœžœ žœžœ˜@Lšžœ žœžœ˜#šžœ˜šžœ žœž˜LšœAžœžœ˜Všœ˜Lšœ/˜/Lšœ˜—Lšœ/˜/Lšžœžœ˜—Lšœ˜—Lšœ˜—š Ÿœžœžœžœžœ˜CLšœžœ˜Lšœ-˜-Lšœ˜Lšœ˜—š Ÿ œžœžœžœžœ˜7Lšœžœ˜Lšœ%˜%Lšœ˜Lšœ˜—š Ÿ œžœžœžœžœ˜7Lšœžœ˜Lšœ%˜%Lšœ˜Lšœ˜—š Ÿ œžœžœžœžœ˜ELšœ˜Lšœ˜Lšœ˜Lšœ%˜%Lšœ˜Lšœ)˜)Lšœ/˜/Lšœ žœžœ˜Lšœ8˜8Lšœ;˜;LšœW˜WLšœ žœžœ˜Lšœ˜Lšœ"˜"Lšœ žœžœ˜Lšœ˜Lšœ4˜4Lšœ žœžœ˜L˜L˜!Lšœ3˜3Lšœ žœžœ˜L˜Lšœ˜—šŸœžœžœžœžœžœžœ ˜TLšœ˜Lšžœžœžœžœ˜$Lšœ"˜"Lšœ˜š žœžœžœ(žœžœž˜LL˜Lšœ˜—Lšžœ˜L˜—š Ÿœžœžœžœžœ žœ˜RLšœ ˜ š žœžœžœ#žœžœž˜GLšœ˜—Lšžœ˜Lšœ˜—š Ÿ œžœžœžœžœ˜:Lš œ$žœžœžœžœ˜\L˜—š Ÿ œžœžœžœžœ˜>Lšœžœ&˜:Lšœ˜L˜—š Ÿ œžœžœžœžœ˜=L˜Lšœ9˜9L˜Lšœ9˜9Lšœ˜Lšœ!˜!L˜L˜—š Ÿœžœžœžœžœ˜@Lšœ:˜:L˜—šŸœžœžœžœžœ žœžœžœ˜NLšžœ žœžœžœ˜Lšœ˜š žœžœžœžœžœžœž˜JL˜Lšœ˜—Lšžœ˜L˜—šŸœžœžœžœžœžœžœ˜XLšžœžœžœžœ˜"Lšœ#˜#š žœžœžœ)žœžœž˜ML˜Lšœ˜—Lšžœ˜Lšœ˜—L˜Lšžœ˜—…—F&