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. ΦFile: PredefSweeps.mesa Last edited by Eric Bier on June 26, 1984 10:30:59 am PDT Contents: A cube, a cylinder, a cone, a sphere and a torus are created at load time and made available through this interface Κ˜Iheadšœ™Jšœ9™9Jšœ}™}J˜šΟk ˜ Jšœ˜—J˜Jšœ œ˜J˜Jš˜˜Jšœœœ˜,Jšœœ$˜=Jšœ œœ˜(Jšœœ"˜9Jšœœœ˜,Jšœœ$˜J˜Jšœ˜—…—jY