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] ]; }. ’ HistogramsViewingPrivate.mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Last tweaked by Mike Spreitzer on January 10, 1991 3:43 pm PST Κω•NewlineDelimiter –(cedarcode) style™code™Kšœ Οeœ1™—K˜KšΟk œDžœ$˜sK˜šΟnœžœž ˜+Kšœžœžœ;˜E—K˜K˜Kšœžœ˜$Kšœ žœžœ ˜!Kšžœžœ žœ˜K˜Kšœžœžœ˜+šœžœžœ˜!Kšœ ˜ Kšœžœ ˜K˜Kšœ˜Kšœ žœ˜Kšœžœ˜ Kšœ žœ˜Kšœ žœžœ˜Kšœ žœ˜Kšœžœžœ˜%Kšœžœ˜ K˜K˜Kšœžœ˜Kšœ žœ˜Kšœ žœžœ˜Kšœ žœžœ˜+Kšœ žœ˜K˜Kšœ žœžœ˜Kšœžœ˜KšœΟgœ œžœ˜Kšœžœ˜KšœΟcœ˜,Kšœ žœ˜K˜Kšœ˜—K˜K˜—…—±