-- File: PredefSweeps.mesa -- Last edited by Bier on December 18, 1982 1:20 am -- Author: Eric Bier on July 1, 1982 9:54 pm -- Contents: A cube, a cylinder, a cone, a sphere and a torus are created at load time and made available through this interface 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. ʘJš=ÏcıœÏk œ œœœœ*œ1œœ&œ1œœ)œ&Ïn œœœŸ œœœŸœœœŸ œœœŸ œœœœœ˜æ—…—h