DIRECTORY SweepGeometry; PredefSweeps: CEDAR 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; SetLinesOfLatitude: PROC [lat: NAT]; SetLinesOfLongitude: PROC [long: NAT]; GetLinesOfLatitude: PROC [] RETURNS [lat: NAT]; GetLinesOfLongitude: PROC [] RETURNS [long: NAT]; 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 September 14, 1986 3:30:48 pm PDT Contents: A cube, a cylinder, a cone, a sphere and a torus are created at load time and made available through this interface Κs˜Iheadšœ™Jšœ=™=Jšœ}™}J˜šΟk ˜ Jšœ˜—J˜JšΟn œœ œ˜!J˜Jš˜˜Jšœœœ˜,Jšœœ$˜=Jšœ œœ˜(Jšœœ"˜9Jšœœœ˜,Jšœœ$˜J˜Jšœ˜—…— m