Points.mesa
Last Edited by: Arnon, May 3, 1986 3:53:47 pm PDT
Points:
CEDAR
DEFINITIONS
~ BEGIN
Point: TYPE = REF PointRec;
PointRec:
TYPE =
RECORD
[SEQUENCE ambientSpacePlus1:[1..4096] OF REF];
LinePoint: TYPE = REF;
PlanePoint: TYPE = ARRAY [1..2] OF REF;
SpacePoint: TYPE = ARRAY [1..3] OF REF;
MakePoint: PROC [arg1: REF, arg2, arg3, arg4, arg5: REF ← NIL] RETURNS [Point];
END.