GGParseOut.mesa
Copyright © 1986, 1987 by Xerox Corporation. All rights reserved.
Last edited by Pier on January 30, 1987 10:21:55 am PST
Contents: Routines which turn various Gargoyle data structures into Rope.ROPEs and write them onto a file stream.
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;
WriteColor: PROC [f: IO.STREAM, color: Color];
WriteStrokeEnd: PROC [f: IO.STREAM, lineEnds: StrokeEnd];
WritePoint: PROC [f: IO.STREAM, point: Point];
WriteTransformation: PROC [f: IO.STREAM, transform: ImagerTransformation.Transformation];
WriteFactoredTransformation: 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.