File: SVPrimitive.mesa
Author: Eric Bier on January 1, 1983 7:39 pm
Last edited by Bier on August 18, 1983 11:41 am
Contents: A simple function for copying most of the properties of an assembly to its corresponding csg primitive so the implementor of a master object doesn't have to do it all in his PrimitiveFromAssembly proc.
DIRECTORY
CSG,
DisplayList3d,
SVBoundBox;
SVPrimitive: DEFINITIONS =
BEGIN
Assembly: TYPE = DisplayList3d.Assembly;
BoundHedron: TYPE = SVBoundBox.BoundHedron;
Primitive: TYPE = REF PrimitiveObj;
PrimitiveObj: TYPE = CSG.PrimitiveObj;
RayCastProc: TYPE = CSG.RayCastProc;
FromAssembly: PROC [assem: Assembly, inverted: BOOL] RETURNS [prim: Primitive];
PrimitiveAssemblyWithoutMO: ERROR;
END.