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] ]; }. € HistogramsViewingPrivate.mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Last tweaked by Mike Spreitzer on December 1, 1988 6:52:19 pm PST Κ.•NewlineDelimiter –(cedarcode) style™code™Kšœ Οeœ1™