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