<> <> DIRECTORY Graphics USING [black, Box, Color, Path], Plot USING [PlotSpec, Curves]; PlotOps: CEDAR DEFINITIONS = { <<>> <> Handle: TYPE = REF HandleData; HandleData: TYPE = RECORD[ plotSpec: Plot.PlotSpec _ NIL, locked: BOOL _ FALSE, foreground: Graphics.Color _ Graphics.black, realBounds, curvesBox: Graphics.Box _ [0, 0, 0, 0], paths: REF PathSequence _ NIL, nVector: CARDINAL _ 0, curves: Plot.Curves _ NIL, <> <> unlocked: CONDITION ]; PathSequence: TYPE = RECORD[SEQUENCE size: CARDINAL OF Graphics.Path]; InitPlot: PROC []; Lock: PROC [handle: Handle]; Unlock: PROC [handle: Handle]; }. <<>>