File: PlotOps.mesa
Last Edited by: SChen, August 9, 1984 8:29:41 pm PDT
DIRECTORY
Graphics USING [black, Box, Color, Path],
Plot USING [PlotSpec, Curves];
PlotOps: CEDAR DEFINITIONS = {
types
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,
forceClear: BOOL ← TRUE,
lineStates: Vector ← NIL,
unlocked: CONDITION
];
PathSequence: TYPE = RECORD[SEQUENCE size: CARDINAL OF Graphics.Path];
InitPlot: PROC [];
Lock: PROC [handle: Handle];
Unlock: PROC [handle: Handle];
}.