<> <> <> 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.