DIRECTORY SVSweepGeometry; PredefSweeps: CEDAR DEFINITIONS = BEGIN RevoluteMesh: TYPE = REF RevoluteMeshRecord; RevoluteMeshRecord: TYPE = SVSweepGeometry.RevoluteMeshRecord; LinearMesh: TYPE = REF LinearMeshRecord; LinearMeshRecord: TYPE = SVSweepGeometry.LinearMeshRecord; ToroidalMesh: TYPE = REF ToroidalMeshRecord; ToroidalMeshRecord: TYPE = SVSweepGeometry.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 July 22, 1987 4:51:24 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šœ8™8Jšœ}™}J˜šΟk ˜ Jšœ˜—J˜JšΟn œœ œ˜!J˜Jš˜˜Jšœœœ˜,Jšœœ&˜?Jšœ œœ˜(Jšœœ$˜;Jšœœœ˜,Jšœœ&˜>J˜—Iprocšžœœœ˜$Lšžœœœ˜&Lšžœœœœ˜/Lšžœœœœ˜1L˜Jšž œœœ˜+Jšž œœœ˜'Jšžœœœ˜-Jšž œœœ˜)Jšž œœœœ˜>J˜Jšœ˜—…—(q