DIRECTORY GGBasicTypes, Imager, ImagerTransformation, IO, Rope; GGParseOut: CEDAR DEFINITIONS = BEGIN BoundBox: TYPE = GGBasicTypes.BoundBox; Color: TYPE = Imager.Color; Point: TYPE = GGBasicTypes.Point; SequenceOfReal: TYPE = GGBasicTypes.SequenceOfReal; StrokeEnd: TYPE = Imager.StrokeEnd; StrokeJoint: TYPE = Imager.StrokeJoint; WriteStrokeEnd: PROC [f: IO.STREAM, strokeEnd: StrokeEnd]; WriteStrokeJoint: PROC [f: IO.STREAM, strokeJoint: StrokeJoint]; WriteColor: PROC [f: IO.STREAM, color: Color]; WritePoint: PROC [f: IO.STREAM, point: Point]; WriteTransformation: PROC [f: IO.STREAM, transform: ImagerTransformation.Transformation]; WriteFactoredTransformation: PROC [f: IO.STREAM, transform: ImagerTransformation.Transformation]; WriteFactoredTransformationVEC: PROC [f: IO.STREAM, transform: ImagerTransformation.Transformation]; WriteBox: PROC [f: IO.STREAM, box: BoundBox]; WriteBOOL: PROC [f: IO.STREAM, bool: BOOL]; WriteProps: PROC [f: IO.STREAM, props: LIST OF REF ANY]; WriteArrayOfReal: PROC [f: IO.STREAM, reals: SequenceOfReal]; END. GGParseOut.mesa Copyright c 1986, 1987 by Xerox Corporation. All rights reserved. Last edited by Pier on February 26, 1987 3:07:33 pm PST Contents: Routines which turn various Gargoyle data structures into Rope.ROPEs and write them onto a file stream. ΚΑ˜codešœ™Kšœ Οmœ7™BKšœ7™7Kšœr™r—K™šΟk ˜ Kšœ+žœ˜5—K˜Kšœ žœž œž˜%˜Iprocšœ žœ˜'Lšœžœ˜Lšœžœ˜!Lšœžœ˜3Lšœ žœ˜#Lšœ žœ˜'L˜—KšΟnœžœžœžœ˜;KšŸœžœžœžœ˜AKšŸ œžœžœžœ˜/KšŸ œžœžœžœ˜.KšŸœžœžœžœ2˜YKšŸœžœžœžœ2˜aKšŸœžœžœžœ2˜dKšŸœžœžœžœ˜-Lš Ÿ œžœžœžœžœ˜+LšŸ œžœžœžœ žœžœžœžœ˜8KšŸœžœžœžœ˜=K˜Kšžœ˜—…—&ν