PSGraphicsPrivate.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Doug Wyatt, August 5, 1987 5:46:42 pm PDT
DIRECTORY
Imager,
PS,
PSGraphics;
PSGraphicsPrivate: CEDAR DEFINITIONS ~ BEGIN OPEN PS, PSGraphics;
Graphics: TYPE ~ REF GraphicsRep;
GraphicsRep: TYPE ~ RECORD [
imager: Imager.Context,
stack: GraphicsStack
];
GraphicsStack: TYPE ~ REF GraphicsStackRep;
GraphicsStackRep: TYPE ~ RECORD [
CTM: Matrix,
color: Color,
path: Path,
clipper: Clipper,
font: Dict,
lineWidth: REAL,
lineCap: LineCap,
lineJoin: LineJoin,
screen: Screen,
transfer: Transfer,
flatness: REAL,
miterLimit: REAL,
dash: Dash,
device: Device,
rest: GraphicsStack
];
Path: TYPE ~ REF PathSegmentRep;
PathSegmentRep: TYPE ~ RECORD [
prev: Path,
variant: SELECT tag: * FROM
move => [p: VEC],
line => [p: VEC],
curve => [p1, p2, p3: VEC],
close => [],
ENDCASE
];
Clipper: TYPE ~ REF ClipperRep;
ClipperRep: TYPE;
Device: TYPE ~ REF DeviceRep;
DeviceRep: TYPE;
END.