HistogramsViewingPrivate.mesa
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]
];
}.