HistogramsViewingPrivate.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer on January 10, 1991 3:43 pm PST
DIRECTORY BiScrollers, Histograms, HistogramsOut, HistogramsPrivate, Imager, IO, LinearSystem, Rope, ViewerClasses;
HistogramsViewingPrivate:
CEDAR
DEFINITIONS
= {OPEN BS:BiScrollers, Histograms, HistogramsOut, HistogramsPrivate;
Viewer: TYPE = ViewerClasses.Viewer;
BiScroller: TYPE = BS.BiScroller;
VEC: TYPE ~ Imager.VEC;
HistogramView: TYPE = REF HistogramViewRep;
HistogramViewRep:
TYPE =
RECORD [
h: Histogram,
bs: BS.BiScroller,
ctr, bsOuter: Viewer,
shown: DataRef,
iFormat: ROPE,
iChars: NAT,
logarithmic: BOOL,
destroyed: BOOL ¬ FALSE,
logFact: REAL ¬ 0,
finding, tweakingSlope: BOOL ¬ FALSE,
findFirstI, findFirstJ: INT ¬ 0,
shownMax: Count ¬ 0,
bad: Range2 ¬ fullRange2,
updatePeriod: REAL,
tracker: PROCESS,
fitVisible: BOOL ¬ FALSE,
fitLog, shownFitLog: BoolPair ¬ ALL[FALSE],
fitDegree: NATURAL ¬ 1,
sums: Sums2D ¬ [],
sumsValid: BOOL ¬ FALSE,
fitCoefs: ColumnN ¬ NIL,
fits, fitr: REAL ¬ 0.0,
shownCoefs: ColumnN ¬ NIL,
shownRange: RealRange1--of i-- ¬ [1.0, 0.0],
tweakConst: VEC ¬ [0.0, 0.0],
minIn: IntPair ¬ [0, 0]
];
}.