DIRECTORY CDInstances, CDPolygons, CDTexts, CD, CDCurves, CDIO, TokenIO; CDPolygonsImpl: CEDAR PROGRAM IMPORTS CD, CDIO, CDCurves, TokenIO EXPORTS CDPolygons = BEGIN polygonClass: PUBLIC CD.ObjectClass _ CD.RegisterObjectClass[$Polygon, [ internalRead: ReadPolygon, description: "old kind of polygon" ]]; CreatePolygon: PUBLIC PROC [points: LIST OF CD.Position, lev: CD.Layer] RETURNS [ob: CD.Object_NIL, offset: CD.Position_[0, 0]] = BEGIN [ob: ob, offset: offset] _ CDCurves.CreatePolygon[points, lev]; END; ReadPolygon: CD.InternalReadProc --PROC [] RETURNS [Object]-- = BEGIN ob: CD.Object; lev: CD.Layer = CDIO.ReadLayer[]; leng: INT = TokenIO.ReadInt[]; points: LIST OF CD.Position _ NIL; FOR i: INT IN [1..leng] DO points _ CONS[CDIO.ReadPos[], points]; ENDLOOP; ob _ CreatePolygon[points, lev].ob; RETURN [ob] END; END. CDPolygonsImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, March 30, 1985 12:19:40 pm PST last edited by Christian Jacobi, March 25, 1986 1:34:14 pm PST Last Edited by: Jacobi June 19, 1986 12:22:55 pm PDT --reorder?? Κδ˜codešœ™Kšœ Οmœ1™™>K™4K™—šΟk ˜ Kšœ ˜ Kšœ ˜ K˜Kšžœ˜Kšœ ˜ Kšœ˜Kšœ˜—K˜šΠblœžœžœ˜Kšžœžœžœ˜#Kšžœ ˜—Kšž˜K˜šœž œžœ ˜HKšœ˜Kšœ"˜"Kšœ˜—K˜šΟn œžœžœ žœžœžœžœžœžœžœ žœ˜‚Kšž˜Kšœ?˜?Kšžœ˜—K˜šΟb œžœΟcœ˜?Kšž˜Kšœžœ˜Kšœžœ žœ ˜!Kšœžœ˜Kš œžœžœžœ žœ˜"šžœžœžœ ž˜Kšœ žœžœ˜&Kšžœ˜—Kšœ ™ Kšœ#˜#Kšžœ˜ Kšžœ˜—K˜Kšžœ˜K˜K˜—…—H: