File: PlotOps.mesa
Last Edited by: SChen, September 13, 1984 9:31:54 pm PDT
DIRECTORY
Graphics USING [Box, Path],
Plot USING [PlotSpec, Curves];
PlotOps: CEDAR DEFINITIONS = {
types
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];
}.