HistogramsViewingPrivate.mesa
Last tweaked by Mike Spreitzer on December 1, 1988 6:52:19 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,
logarithmic: BOOL,
destroyed: BOOL ← FALSE,
logFact: REAL ← 0,
iFormat: ROPE,
iChars, minHLabSep, iFreq: NAT ← 0,
vFreq, vFreqForR, maxCountForR: Count ← 0,
dHeight: REAL, --height/count
dWidth: REAL ← 0, --bar period
cWidth: REAL ← 0, --bar width
rxmin, rxmax: 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]
];
}.