<> <> <> DIRECTORY IO, SVModelTypes, SVRayTypes, SVSceneTypes; DisplayListToTree: CEDAR DEFINITIONS = BEGIN Assembly: TYPE = SVSceneTypes.Assembly; Camera: TYPE = SVModelTypes.Camera; CoordSysList: TYPE = SVModelTypes.CoordSysList; CSGTree: TYPE = SVRayTypes.CSGTree; Primitive: TYPE = SVRayTypes.Primitive; Scene: TYPE = SVSceneTypes.Scene; AssemblyToTree: PROC [assembly: Assembly, scene: Scene, camera: Camera] RETURNS [tree: CSGTree]; <> PrimitiveFromAssembly: PROC [assem: Assembly, inverted: BOOL] RETURNS [prim: Primitive]; PrimitiveAssemblyWithoutMO: ERROR; CoordSysListFromScene: PROC [scene: Scene] RETURNS [csl: CoordSysList]; <> ListTree: PROC [outHandle: IO.STREAM, tree: CSGTree]; <> CommonAncestor: PROC [red: Assembly, blue: Assembly, root: Assembly] RETURNS [gramps: Assembly]; <> IsSuccessorOf: PROC [testChild: Assembly, testAncestor: Assembly] RETURNS [BOOL]; <> AncestorAtLevel: PROC [child: Assembly, root: Assembly, level: NAT] RETURNS [gramps: Assembly]; <> END.