DIRECTORY
CoordSys, CSG, SVScene, DisplayListToTree, Fileout3d, FileNames, IO, Rope, SV3d, SVModelTypes, SVSceneTypes, SweepGeometry, TFO3d;

Fileout3dImpl: CEDAR PROGRAM
IMPORTS CoordSys, CSG, IO, SVScene, DisplayListToTree, FileNames, Rope, TFO3d
EXPORTS Fileout3d =

BEGIN

Artwork: TYPE = SVModelTypes.Artwork;
ArtworkClass: TYPE = SVModelTypes.ArtworkClass;
Assembly: TYPE = SVSceneTypes.Assembly;
AssemblyList: TYPE = SVSceneTypes.AssemblyList;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
CoordSysList: TYPE = SVModelTypes.CoordSysList;
FileCamera: TYPE = SVSceneTypes.FileCamera;
FileCameraList: TYPE = SVSceneTypes.FileCameraList;
LightSource: TYPE = SVModelTypes.LightSource;
LightSourceList: TYPE = LIST OF LightSource;
LinearMesh: TYPE = REF LinearMeshRecord;
LinearMeshArray: TYPE = SweepGeometry.LinearMeshArray;
LinearMeshRecord: TYPE = SweepGeometry.LinearMeshRecord;
MasterObject: TYPE = SVSceneTypes.MasterObject;
MasterObjectList: TYPE = SVSceneTypes.MasterObjectList;
Matrix4by4: TYPE = SV3d.Matrix4by4;
Point3d: TYPE = SV3d.Point3d;
RevoluteMesh: TYPE = REF RevoluteMeshRecord;
RevoluteMeshArray: TYPE = SweepGeometry.RevoluteMeshArray;
RevoluteMeshRecord: TYPE = SweepGeometry.RevoluteMeshRecord;
Scene: TYPE = SVSceneTypes.Scene;
Shape: TYPE = SVSceneTypes.Shape;
SpaceFunction: TYPE = SVModelTypes.SpaceFunction;

FileoutScene: PUBLIC PROC [scene: Scene, f: IO.STREAM, fileName: Rope.ROPE] = {
csList: CoordSysList;
fileName _ FileNames.GetShortName[fileName];
f.PutF["File: %g\n",[rope[fileName]]];
f.PutF["3D file for scene: %g\n",[rope[fileName]]];
f.PutF["Produced by %g\n\n", [rope[SVScene.versionRope]]];
f.PutF["Background color: "];
TFO3d.FileoutColor[f, scene.backgroundColor];
f.PutChar[IO.CR];
f.PutF["Shadows: "];
TFO3d.FileoutBOOL[f, scene.shadows];
f.PutChar[IO.CR];
f.PutF["Ambient: "];
TFO3d.FileoutColor[f, scene.lightSources.first.color];
f.PutChar[IO.CR];

f.PutChar[IO.CR];
csList _ DisplayListToTree.CoordSysListFromScene[scene];
FileoutCoordSystems[f, csList];
FileoutLightSources[f, scene.lightSources.rest];
FileoutObjects[f, scene.masterObjects];
FileoutAssembly[f, scene.assembly, scene.masterObjects];
FileoutCameras[f, scene.cameras];
FileoutCameraOrder[f, scene.cameraOrder];
f.PutF["END"];
f.Close[];
scene.dirty _ FALSE;
};
CountCoordSystems: PROC [csl: CoordSysList] RETURNS [count: NAT] = {
count _ 0;
FOR list: CoordSysList _ csl, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};
FileoutCoordSystems: PROC  [f: IO.STREAM, csl: CoordSysList] = {
count: NAT _ CountCoordSystems[csl];
thisCS: CoordSystem;
f.PutF["CoordSystems [%g]:\n",[integer[count]]];
FOR thisCSL: CoordSysList _ csl, thisCSL.rest UNTIL thisCSL = NIL DO
thisCS _ thisCSL.first;
f.PutF["CoordSys: %g mat: ",[rope[thisCS.name]]];
TFO3d.FileoutMatrix[f,thisCS.mat];
f.PutF[" withRespectTo: "];
IF thisCS.parent = NIL THEN f.PutF["NIL"]
ELSE f.PutRope[thisCS.parent.name];
f.PutChar[IO.CR];
ENDLOOP;
f.PutChar[IO.CR];
};
CountLightSources: PROC [lsl: LightSourceList] RETURNS [count: NAT] = {
count _ 0;
FOR list: LightSourceList _ lsl, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};
FileoutLightSources: PUBLIC PROC [f: IO.STREAM, lsl: LightSourceList] = {
count: NAT _ CountLightSources[lsl];
thisLS: LightSource;
f.PutF["LightSources [%g]:\n",[integer[count]]];
FOR thisLSL: LightSourceList _ lsl, thisLSL.rest UNTIL thisLSL = NIL DO
thisLS _ thisLSL.first;
FileoutLightSource[f, thisLS];
f.PutChar[IO.CR];
ENDLOOP;
f.PutChar[IO.CR];
};
FileoutLightSource: PROC [f: IO.STREAM, lightSource: LightSource] = {
f.PutF["LightSource: %g position: ",[rope[lightSource.name]]];
TFO3d.FileoutPoint3d[f,lightSource.position];
f.PutF[" color: "];
TFO3d.FileoutColor[f, lightSource.color];
};

FileoutCameras: PUBLIC PROC [f: IO.STREAM, cameras: FileCameraList] = {
count: NAT _ CountCameras[cameras];
thisCamera: FileCamera;
f.PutF["Cameras [%g]:\n",[integer[count]]];
FOR list: FileCameraList _ cameras, list.rest UNTIL list = NIL DO
thisCamera _ list.first;
TFO3d.FileoutCamera[f, thisCamera];
f.PutChar[IO.CR];
ENDLOOP;
f.PutChar[IO.CR];
};

FileoutCameraOrder: PUBLIC PROC [f: IO.STREAM, cameraOrder: LIST OF Rope.ROPE] = {
count: NAT _ CountRopes[cameraOrder];
f.PutF["Initial Camera Order [%g]: ", [integer[count]]];
IF count > 0 THEN {
f.PutRope[cameraOrder.first];
FOR list: LIST OF Rope.ROPE _ cameraOrder.rest, list.rest UNTIL list = NIL DO
f.PutF[", %g", [rope[list.first]]];
ENDLOOP;
f.PutChar[IO.CR];
f.PutChar[IO.CR];
};
};

CountRopes: PROC [ropes: LIST OF Rope.ROPE] RETURNS [count: NAT] = {
count _ 0;
FOR list: LIST OF Rope.ROPE _ ropes, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};

CountCameras: PROC [cameras: FileCameraList] RETURNS [count: NAT] = {
count _ 0;
FOR list: FileCameraList _ cameras, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};
CountAssemblies: PROC [asl: AssemblyList] RETURNS [count: NAT] = {
count _ 0;
FOR list: LIST OF Assembly _ asl.list, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};
FileoutArtwork: PRIVATE PROC [f: IO.STREAM, artwork: Artwork] = {
IF artwork.coordSys = NIL THEN f.PutF["coordSys: %g class: %g ", IO.rope["NIL"], IO.rope[ArtworkClassToRope[artwork.class]]]
ELSE  f.PutF["coordSys: %g class: %g ", IO.rope[artwork.coordSys.name], IO.rope[ArtworkClassToRope[artwork.class]]];

f.PutF["material: "];
TFO3d.FileoutMaterial[f, artwork.material];
f.PutF[" surface: "];
TFO3d.FileoutSurface[f, artwork.surface];
SELECT artwork.class FROM
justColor => {
f.PutF[" color: "];
TFO3d.FileoutColor[f, artwork.color];
};
simpleSurface => {
aisName: Rope.ROPE;
f.PutChar[IO.CR];
f.PutF["SMap: "];
TFO3d.FileoutSMap[f, artwork.sMap];
f.PutF[" OMap: "];
TFO3d.FileoutOMap[f, artwork.oMap];
f.PutChar[IO.SP];
aisName _ FileNames.GetShortName[artwork.source];
f.PutF["source: %g ", [rope[aisName]]];
IF artwork.isColorFile THEN f.PutF["colorFile"] ELSE f.PutF["bwFile"];
f.PutF[" resolution: %g\n", [real[artwork.resolution]]];
f.PutF["mat: "];
TFO3d.FileoutMatrix3by3[f, artwork.artWRTPad.mat];
f.PutF[" color: "];
TFO3d.FileoutColor[f, artwork.color];
};
spaceFunction => {
spaceFunction: SpaceFunction _ NARROW[artwork.surface];
f.PutF[" scalars: "];
TFO3d.FileoutPoint3d[f, spaceFunction.scalars];
f.PutF[" func: colorcube"];
};
ENDCASE => ERROR;
};
ArtworkClassToRope: PROC [class: ArtworkClass] RETURNS [className: Rope.ROPE] = {
SELECT class FROM
justColor => className _ "justColor";
simpleSurface => className _ "simpleSurface";
spaceFunction => className _ "spaceFunction";
ENDCASE => ERROR;
};
FileoutAssembly: PROC [f: IO.STREAM, assem: Assembly, mol: MasterObjectList] = {
pointSetOp: Rope.ROPE;
f.PutF["Assembly: %g, coordSys: %g",
[rope[assem.name]],[rope[assem.coordSys.name]]];
WITH assem.shape SELECT FROM
alist: AssemblyList => {
f.PutF[", Composite"];
f.PutChar[IO.CR];
f.PutChar[IO.TAB];
f.PutF["artwork: "];
FileoutArtwork[f, assem.artwork];
f.PutChar[IO.CR];
f.PutChar[IO.TAB];
pointSetOp _ CSG.PointSetOpToRope[alist.pointSetOp];
f.PutF["subassemblies [%g]\n", [rope[pointSetOp]]];
FileoutSubassemblyNames[f, alist];
f.PutChar[IO.CR];
FileoutAssemblies[f,alist,mol];
};
shape: Shape => {
f.PutF[", Primitive scalars: "];
TFO3d.FileoutPoint3d[f, CoordSys.GetScalars[shape.coordSys]];
f.PutChar[IO.CR]; f.PutChar[IO.TAB];
f.PutF["artwork: "];
FileoutArtwork[f, assem.artwork];
f.PutChar[IO.CR]; f.PutChar[IO.TAB];
f.PutF["object: "];
f.PutRope[shape.mo.name];
IF Rope.Equal[shape.mo.name, "jack", FALSE] THEN {
f.PutF[" sittingOn: "];
IF assem.sittingOn = NIL THEN f.PutF["NIL"]
ELSE f.PutRope[assem.sittingOn];
};
f.PutChar[IO.CR];
};
ENDCASE => ERROR;
}; -- end of FileoutAssembly
FileoutAssemblies: PROC [f: IO.STREAM, as: AssemblyList, mol: MasterObjectList] = {
count: NAT _ CountAssemblies[as];
f.PutF["Subassemblies [%g]:\n",[integer[count]]];
FOR aso: LIST OF Assembly _ as.list, aso.rest UNTIL aso = NIL DO
FileoutAssembly[f, aso.first, mol];
ENDLOOP; -- next assembly
f.PutChar[IO.CR];
}; -- end of FileoutAssemblies

FileoutSubassemblyNames: PROC [f: IO.STREAM, asl: AssemblyList] = {
count: NAT _ CountAssemblies[asl];
thisA: Assembly;
f.PutF[" [%g]: (", [integer[count]]];
IF count = 0 THEN {f.PutF[")\n"]; RETURN};
thisA _ asl.list.first;
f.PutRope[thisA.name];
FOR list: LIST OF Assembly _ asl.list.rest, list.rest UNTIL list = NIL DO
thisA _ list.first;
f.PutF[", %g",[rope[thisA.name]]];
ENDLOOP;
f.PutF[")\n"];
};
CountObjects: PROC [ol: MasterObjectList] RETURNS [count: NAT] = {
count _ 0;
FOR list: MasterObjectList _ ol, list.rest UNTIL list = NIL DO
count _ count + 1;
ENDLOOP;
};
FileoutObjects: PROC [f: IO.STREAM, ol: MasterObjectList] = {
mo: MasterObject;
count: NAT _ CountObjects[ol];
f.PutF["Objects [%g]:\n",[integer[count]]];
FOR mol: MasterObjectList_ ol, mol.rest UNTIL mol = NIL DO
mo _ mol.first;
f.PutF["Master Object: %g class: %g\n", [rope[mo.name]], [rope[mo.class.name]]];
mo.class.fileout[f, mo];
ENDLOOP;
f.PutChar[IO.CR];
};


END.

&File: Fileout3dImpl.mesa
Last edited by Bier on January 28, 1987 12:47:21 pm PST
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Contents:  Facilities for creating text files and writing out a human-readable version of a 3d object database
File out subassembly information.
Κ°–

"cedar" style˜Iheadš
œ™Iprocš
œ7™7Jšœ
Οm
œ1™<Lš
œn™nL˜š
Οk	˜	Lšœ@žœ?˜‚
—L˜šœž
˜Lšžœžœ4˜MLšžœ˜—L˜Lš
ž˜˜Lšœ	žœ˜%Lšœžœ˜/Lšœ
žœ˜'Lšœžœ˜/Lšœ
žœ˜-Lšœžœ˜/Lšœžœ˜+Lšœžœ˜3Lšœ
žœ˜-Lšœžœžœ
žœ
˜,Lšœžœžœ˜(Lšœžœ!˜6Lšœžœ"˜8Lšœžœ˜/Lšœžœ!˜7Lšœžœ˜#Lšœ	žœ˜Lšœžœžœ˜,Lšœžœ#˜:Lšœžœ$˜<Lšœžœ˜!Lšœžœ˜!Lšœžœ˜1L˜—šΟnœžœ
žœžœ
žœžœ˜OL˜Lš
œ,˜,Lš
œ&˜&Lš
œ3˜3Lš
œ:˜:Lš
œ˜Lš
œ-˜-Lšœ
žœ
žœ˜Lš
œ˜Lš
œ$˜$Lšœ
žœ
žœ˜Lš
œ˜Lš
œ6˜6Lšœ
žœ
žœ˜L˜Lšœ
žœ
žœ˜Lš
œ8˜8Lš
œ˜Lš
œ0˜0Lš
œ'˜'Lš
œ8˜8Lš
œ!˜!Lš
œ)˜)Lš
œ˜Lš
œ
˜
Lšœžœ
˜Lš
œ˜—šŸœžœžœ	žœ˜DLš
œ
˜
šžœ%žœžœ
ž˜;Lš
œ˜—Lšžœ
˜Lš
œ˜—šŸœžœžœ
žœ˜@Lšœžœ˜$Lš
œ˜Lš
œ0˜0šžœ+žœžœ
ž˜DLš
œ˜Lš
œ1˜1Lš
œ"˜"Lš
œ˜Lšžœžœ
žœ˜)Lšžœ˜#Lšœ
žœ
žœ˜—Lšžœ
˜Lšœ
žœ
žœ˜Lš
œ˜—šŸœžœžœ	žœ˜GLš
œ
˜
šžœ(žœžœ
ž˜>Lš
œ˜—Lšžœ
˜Lš
œ˜—š
Ÿœžœ
žœžœ
žœ˜ILšœžœ˜$Lš
œ˜Lš
œ0˜0šžœ.žœžœ
ž˜GLš
œ˜Lš
œ˜Lšœ
žœ
žœ˜—Lšžœ
˜Lšœ
žœ
žœ˜Lš
œ˜—šŸœžœžœ
žœ˜ELš
œ>˜>Lš
œ-˜-Lš
œ˜Lš
œ)˜)Lš
œ˜—š
Ÿœžœ
žœžœ
žœ˜GLšœžœ˜#Lš
œ˜Lš
œ+˜+šžœ+žœžœ
ž˜ALš
œ˜Lš
œ#˜#Lšœ
žœ
žœ˜—Lšžœ
˜Lšœ
žœ
žœ˜Lš
œ˜—šŸœžœ
žœžœ
žœžœ
žœžœ˜RLšœžœ˜%Lš
œ8˜8šžœžœ˜Lš
œ˜š
žœžœ
žœžœžœžœ
ž˜MLš
œ#˜#—Lšžœ
˜Lšœ
žœ
žœ˜Lšœ
žœ
žœ˜L˜—L˜L˜—šŸ
œžœ	žœ
žœžœžœ	žœ˜DLš
œ
˜
š
žœžœ
žœžœžœžœ
ž˜BLš
œ˜—Lšžœ
˜Lš
œ˜—šŸœžœžœ	žœ˜ELš
œ
˜
šžœ+žœžœ
ž˜ALš
œ˜—Lšžœ
˜Lš
œ˜—šŸœžœžœ	žœ˜BLš
œ
˜
šžœžœ
žœ žœžœ
ž˜DLš
œ˜—Lšžœ
˜Lš
œ˜—š
Ÿœžœ
žœžœ
žœ˜ALš
žœžœ
žœ#žœžœ)˜|Lšžœ$žœžœ*˜tL˜Lš
œ˜Lš
œ+˜+Lš
œ˜Lš
œ)˜)Lšžœž˜˜Lš
œ˜Lš
œ%˜%L˜—˜Lšœžœ
˜Lšœ
žœ
žœ˜Lš
œ˜Lš
œ#˜#Lš
œ˜Lš
œ#˜#Lšœ
žœ
žœ˜Lš
œ1˜1Lš
œ'˜'Lšžœžœžœ˜FLš
œ8˜8Lš
œ˜Lš
œ2˜2Lš
œ˜Lš
œ%˜%Lš
œ˜—˜Lšœžœ˜7Lš
œ˜Lš
œ/˜/Lš
œ˜L˜—Lšžœžœ
˜Lš
œ˜—šŸœžœžœžœ˜QLšžœž˜Lš
œ%˜%Lš
œ-˜-Lš
œ-˜-Lšžœžœ
˜L˜—šŸœžœžœ
žœ-˜PLšœžœ
˜Lš
œ$˜$Lš
œ0˜0Lšžœ
žœ
ž˜š
œ˜Lš
œ˜Lšœ
žœ
žœ˜Lšœ
žœ
žœ˜Lš
œ˜Lš
œ!˜!šœ
žœ
žœ˜Lš
œ!™!—Lšœ
žœ
žœ˜Lšœ
žœ$˜4š
œ3˜3Lš
œ"˜"Lšœ
žœ
žœ˜Lš
œ˜Lš
œ˜—š
œ˜Lš
œ ˜ Lš
œ=˜=Lš	œ
žœ
žœ
žœ
žœ˜$Lš
œ˜Lš
œ!˜!Lš	œ
žœ
žœ
žœ
žœ˜$Lš
œ˜Lš
œ˜šžœ#žœžœ˜2Lš
œ˜Lšžœžœ
žœ˜+Lšžœ˜ L˜—Lšœ
žœ
žœ˜L˜—Lšžœžœ
˜—LšœΟc˜—šŸœžœžœ
žœ.˜SLšœžœ˜!Lš
œ1˜1šžœžœ
žœžœžœ
ž˜@Lš
œ#˜#—Lšžœ ˜Lšœ
žœ
žœ˜Lšœ ˜L˜—šŸœžœžœ
žœ˜CLšœžœ˜"Lš
œ˜Lš
œ%˜%Lšžœžœžœ˜*Lš
œ˜Lš
œ˜šžœžœ
žœ%žœžœ
ž˜ILš
œ˜Lš
œ"˜"—Lšžœ
˜Lš
œ˜Lš
œ˜—šŸœžœžœ	žœ˜BLš
œ
˜
šžœ(žœžœ
ž˜>Lš
œ˜—Lšžœ
˜Lš
œ˜—šŸœžœžœ
žœ˜=Lš
œ˜Lšœžœ˜Lš
œ+˜+šžœ%žœžœ
ž˜:Lš
œ˜Lš
œP˜PLš
œ˜—Lšžœ
˜Lšœ
žœ
žœ˜Lš
œ˜L˜—L˜Lšžœ
˜—…—"β/Έ