<> <> <> DIRECTORY SweepGeometry; PredefSweeps: DEFINITIONS = BEGIN RevoluteMesh: TYPE = REF RevoluteMeshRecord; RevoluteMeshRecord: TYPE = SweepGeometry.RevoluteMeshRecord; LinearMesh: TYPE = REF LinearMeshRecord; LinearMeshRecord: TYPE = SweepGeometry.LinearMeshRecord; ToroidalMesh: TYPE = REF ToroidalMeshRecord; ToroidalMeshRecord: TYPE = SweepGeometry.ToroidalMeshRecord; GetUnitSphere: PROC RETURNS [RevoluteMesh]; GetUnitCube: PROC RETURNS [LinearMesh]; GetUnitCylinder: PROC RETURNS [RevoluteMesh]; GetUnitCone: PROC RETURNS [RevoluteMesh]; CreateTorus: PROC [rBig, rCross: REAL] RETURNS [ToroidalMesh]; END.