DIRECTORY Lines2dTypes, Rope; GGCoreTypes: CEDAR DEFINITIONS = BEGIN EventListt: TYPE = REF EventListtObj; -- spelled with two t's to indicate a "List and a Tail pointer" EventListtObj: TYPE = RECORD [ list: LIST OF Event, tail: LIST OF Event ]; Event: TYPE = LIST OF REF ANY; RopeListt: TYPE = REF RopeListtObj; RopeListtObj: TYPE = RECORD [ list: LIST OF Rope.ROPE, tail: LIST OF Rope.ROPE ]; SequenceOfReal: TYPE = REF SequenceOfRealObj; SequenceOfRealObj: TYPE = RECORD [ reals: SEQUENCE len: NAT OF REAL]; BoundBox: TYPE = REF BoundBoxObj; BoundBoxObj: TYPE = RECORD [loX, loY, hiX, hiY: REAL, null, infinite: BOOL]; Edge: TYPE = Lines2dTypes.Edge; EdgeObj: TYPE = Lines2dTypes.EdgeObj; Line: TYPE = Lines2dTypes.Line; LineObj: TYPE = Lines2dTypes.LineObj; END. β GGCoreTypes.mesa Copyright Σ 1986, 1992 by Xerox Corporation. All rights reserved. Last edited by Bier on July 15, 1987 5:48:14 pm PDT Contents: Types shared by Gargoyle, Gargoyle3d, and the Gargoyle core routines. Κο•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ6™BKšœ3™3KšœP™PK™—šΟk ˜ Kšœ˜—K˜Kšœ žœž œ˜ Kšž˜K˜Kš œ žœžœΟc'ΠczŸ Ÿ ˜ešœžœžœ˜Kšœžœžœ˜Kšœžœžœ˜K˜K˜—Kš œžœžœžœžœžœ˜K˜Kšœ žœžœ˜#šœžœžœ˜Kšœžœžœžœ˜Kšœžœžœž˜K˜K˜—Kšœžœžœ˜-šœžœžœ˜"Kš œžœžœžœžœ˜"—K˜Kšœ žœžœ ˜!Kš œ žœžœžœžœ˜LK˜Kšœžœ˜šœ žœ˜%K˜—Kšœžœ˜Kšœ žœ˜%K˜Kšžœ˜K˜—…— Ϋ