CDPolygons.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, March 30, 1985 11:58:01 am PST
last edited by Christian Jacobi, March 30, 1985 11:58:05 am PST
DIRECTORY
CD,
Graphics;
CDPolygons: CEDAR DEFINITIONS =
BEGIN
PolygonPtr: TYPE = REF PolygonRec;
PolygonRec: TYPE = RECORD [points: LIST OF CD.DesignPosition, path: Graphics.Path];
IsPolygon: PROC [ob: CD.ObPtr] RETURNS [BOOL] = INLINE {
RETURN [ob.p.objectType = $Polygon]
};
CreatePolygon: PROC [points: LIST OF CD.DesignPosition, lev: CD.Layer]
RETURNS [ob: CD.ObPtr, offset: CD.DesignPosition];
--some restrictions on possible paths exist
--NIL or CD.Error if restrictions violated
END.