<> <> <> 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.