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