File: TFO3dImpl.mesa
Last edited by Bier on January 14, 1985 0:14:31 am PST
Copyright © 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]).
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] = {
Only writes the first 2 rows.
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.