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