<> <> <> <> DIRECTORY Imager, IO, ObjectCast, Rope, SV2d, SVBasicTypes, SVModelTypes, SVRayTypes, SVSceneTypes, SweepGeometry; BasicObject3d: DEFINITIONS = BEGIN Assembly: TYPE = SVSceneTypes.Assembly; BoundHedron: TYPE = SVBasicTypes.BoundHedron; Camera: TYPE = SVModelTypes.Camera; Classification: TYPE = SVRayTypes.Classification; CoordSystem: TYPE = SVModelTypes.CoordSystem; LinearMesh: TYPE = SweepGeometry.LinearMesh; LightSourceList: TYPE = SVModelTypes.LightSourceList; MasterObject: TYPE = SVSceneTypes.MasterObject; Path: TYPE = SV2d.Path; PlanarSurface: TYPE = SVSceneTypes.PlanarSurface; PlanarSurfaceList: TYPE = SVSceneTypes.PlanarSurfaceList; Point2d: TYPE = SV2d.Point2d; Primitive: TYPE = SVRayTypes.Primitive; Ray: TYPE = SVRayTypes.Ray; RevoluteMesh: TYPE = SweepGeometry.RevoluteMesh; <> SphereRec: TYPE = REF SphereRecObj; SphereRecObj: TYPE = RECORD [ radius: REAL]; BlockRec: TYPE = REF BlockRecObj; BlockRecObj: TYPE = RECORD [ x, y, z: REAL]; CylinderRec: TYPE = REF CylinderRecObj; CylinderRecObj: TYPE = RECORD [ radius, height: REAL]; ConeRec: TYPE = REF ConeRecObj; ConeRecObj: TYPE = RECORD [ radius, height: REAL]; TorusRec: TYPE = REF TorusRecObj; TorusRecObj: TYPE = RECORD [ bigRadius: REAL, sectionRadius: REAL]; LonelyAssemblyHasSon: ERROR; -- returned from *PrimitiveFromAssembly if assembly is not a primitive assembly WrongTypeOfData: SIGNAL; -- signalled if the assembly given to *PrimitiveFromAssembly has an assembly.object which is not a MasterObject; <> TorusMakeMasterObject: PROC [name: Rope.ROPE, bigRadius: REAL, sectionRadius: REAL] RETURNS [mo: MasterObject]; LinSweepMakeMasterObject: PROC [name: Rope.ROPE, linMesh: LinearMesh] RETURNS [mo: MasterObject]; RevoSweepMakeMasterObject: PROC [name: Rope.ROPE, path: Path, long: NAT] RETURNS [mo: MasterObject]; <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <> END.