DIRECTORYCSGGraphics,DisplayList3d,GraphicsColor,IO,Matrix3d,Rope,SV2d,SVArtwork,SVMappings,SVMatrix2d,SVPolygon3d,TFO3d;TFO3dImpl: PROGRAMIMPORTS CSGGraphics, GraphicsColor, IO, SVArtworkEXPORTS TFO3d =BEGINAssembly: TYPE = DisplayList3d.Assembly;Box: TYPE = SVMappings.Box;Color: TYPE = GraphicsColor.Color;DrawStyle: TYPE = CSGGraphics.DrawStyle;Point2d: TYPE = SV2d.Point2d;FileCamera: TYPE = DisplayList3d.FileCamera;FrameBox: TYPE = CSGGraphics.FrameBox;Material: TYPE = SVArtwork.Material;Matrix3by3: TYPE = SVMatrix2d.Matrix3by3;Matrix4by4: TYPE = Matrix3d.Matrix4by4;OMap: TYPE = SVArtwork.OMap;Plane: TYPE = SVPolygon3d.Plane;Point3d: TYPE = Matrix3d.Point3d;Tube: TYPE = SVMappings.Tube;SMap: TYPE = SVArtwork.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]];};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.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.   b  File: TFO3dImpl.mesaLast edited by Bier on August 12, 1983 11:56 am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.Э╩8  Ц"cedar" styleШ IheadЪЬЩIprocЪЬ/Щ/LЪЬ°Щ°LШ Ъ╧k	Ш	LЪЬШLЪЬШLЪЬШLЪЭЬШLЪЬ	Ш	LЪЬШLЪЬШLЪЬ
Ш
LЪЬШLЪЬШLШLЪЬШЧLШ ЪЬЭШLЪЭЬЭЬШ1LЪЭЬШЧLШ LЪЭШШ LЪЬ
ЭЬШ(LЪЬЭЬШLЪЬЭЬШ"LЪЬЭЬШ(LЪЬ	ЭЬШLЪЬЭЬШ,LЪЬ
ЭЬШ&LЪЬ
ЭЬШ$LЪЬЭЬШ)LЪЬЭЬШ'LЪЬЭЬШLЪЬЭЬШ LЪЬ	ЭЬШ!LЪЬЭЬШLЪЬЭЬШLШ Ъ╧nЬЭЬЭЬЭЬЭЬЭЬШ7LЪЭЬЭЬЭЬШ7LШLШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ>LЪЬ!Ш!ЪЭЬЭЬЭЬЭШLЪЬ Ш ЧLЪЭЬШLЪЬШЪЭЬЭЬЭЬЭШLЪЬ"Ш"ЪЭЬЭЬЭЬЭШLЪЬ Ш ЧLЪЭЬШLЪЬШЧLЪЭЬШLЪЬШLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШBLЪЬЩLЪЬ!Ш!ЪЭЬЭЬЭЬЭШLЪЬ Ш ЧLЪЭЬШLЪЬШLЪЬ"Ш"ЪЭЬЭЬЭЬЭШLЪЬ Ш ЧLЪЭЬШLЪЬШLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ@LЪЬNШNLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШILЪЬ8Ш8LЪЬШЧLШ LШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ:LЪЬ	ЭЬШLЪЬ,Ш,LЪЬ5Ш5LЪЬШЧLШ ЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШ@LЪЭЬЭЬЭЬШ#ЪЭЬШЪЭЬ	ЭЬЭШLЪЬAЭЬЭЬШVLЪЬШLЪЬ/Ш/LЪЬШLЪЭЬЭЬШЧLЪЬШЧLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШCLЪЬЭЬШLЪЬ-Ш-LЪЬШLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ7LЪЬЭЬШLЪЬ%Ш%LЪЬШLЪЬШЧLШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ7LЪЬЭЬШLЪЬ%Ш%LЪЬШLЪЬШЧЪЬЮЬЭЬЭЬЭЬЭЬШFLЪЬШLЪЬШLЪЬШLЪЬ%Ш%LЪЬШLЪЬ)Ш)LЪЬ/Ш/LЪЬ
ЭЬЭЬШLЪЬ8Ш8LЪЬ;Ш;LЪЬ
ЭЬЭЬШ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ЪЭЬШЧ ЕЧ    ║  T  