<> <> <> <<>> <> <> <<>> DIRECTORY CADTypes USING [VertexSequence, TriangleSequence], Rope USING [ROPE], ThreeDBasics USING [Context, ShapeInstance], Geometry3dVector USING [Triple, TripleSequence]; ThreeDHacks: CEDAR DEFINITIONS ~ BEGIN RegisterNewClasses: PROC [context3d: REF ThreeDBasics.Context]; <> <<>> MakeFatPoint: PROC [name: Rope.ROPE, position: Geometry3dVector.Triple] RETURNS [newFatPoint: REF ThreeDBasics.ShapeInstance]; <> <<>> MakeFatSeg: PROC [name: Rope.ROPE, points: Geometry3dVector.TripleSequence] RETURNS [newFatSeg: REF ThreeDBasics.ShapeInstance]; <> <<>> MakeTwoCell: PROC [name: Rope.ROPE, vertices: REF CADTypes.VertexSequence, triangles: REF CADTypes.TriangleSequence] RETURNS [newTwoCell: REF ThreeDBasics.ShapeInstance]; END.