File: PlotOps.mesa, Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Last Edited by:
Sweetsun Chen, July 27, 1985 8:31:30 pm PDT
DIRECTORY
Imager USING [Box],
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,
colorType: ColorType ← mine,
realBounds, curvesBox: Imager.Box ← [0, 0, 0, 0],
curves: Plot.Curves ← NIL,
lineStates: States ← NIL,
unlocked: CONDITION
];
BackgroundType: TYPE = {white, gray, darkGray, black, unknown};
ColorType: TYPE = {mine, cedar, bw};
States: TYPE = REF StateSequence;
StateSequence: TYPE = RECORD[SEQUENCE size: CARDINAL OF LineState];
MaxStep: CARDINAL = 6;
LineStep: TYPE = INTEGER[0..MaxStep);
LineState: TYPE = REF LineStateRec;
LineStateRec:
TYPE =
RECORD[
step: LineStep ← 0,
progress: REAL ← 0.0
];
Lock: PROC [handle: Handle];
Unlock: PROC [handle: Handle];
}.
CHANGE
LOG.
Created by: SChen in Cedar5.
SChen, July 22, 1985 6:22:31 pm PDT, => Cedar6.0.