File: PlotOps.mesa, Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Last Edited by:
Sweetsun Chen, August 2, 1985 8:01:43 pm PDT
DIRECTORY
Imager USING [Box, ConstantColor, Context],
Plot USING [PlotSpec, Curves];
PlotOps: CEDAR DEFINITIONS = {
constants
MaxNumerOfColors: INTEGER = 16;
types
Handle: TYPE = REF HandleData;
HandleData:
TYPE =
RECORD[
plotSpec: Plot.PlotSpec ← NIL,
locked: BOOL ← FALSE,
background: BackgroundType ← white,
colorMode: ColorMode ← color,
colorMap: ColorMap ← mine,
realBounds, curvesBox: Imager.Box ← [0, 0, 0, 0],
curves: Plot.Curves ← NIL,
lineStates: States ← NIL,
unlocked: CONDITION
];
OutputType: TYPE = {screen, press, interpress};
NColors: TYPE = [0..MaxNumerOfColors);
BackgroundType: TYPE = {white, gray, darkGray, black, unknown};
ColorMode: TYPE = {color, bw};
ColorMap: TYPE = {mine, cedar};
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
];
varaiable
color: ARRAY NColors OF Imager.ConstantColor;
procedures
Lock: PROC [handle: Handle];
Unlock: PROC [handle: Handle];
DrawMe: PROC [context: Imager.Context, handle: Handle, whatChanged: REF ANY, output: OutputType];
}.
CHANGE
LOG.
Created by: SChen in Cedar5.
SChen, July 22, 1985 6:22:31 pm PDT, => Cedar6.0.