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] ]; }. fHistogramsViewingPrivate.mesa Last tweaked by Mike Spreitzer on December 1, 1988 6:52:19 pm PST Ê– "cedar" style˜code™K™A—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šœ œÏc˜KšœœŸ˜KšœœŸ˜Kšœœ˜Kšœœœ˜%Kšœœ˜ Kšœ˜K˜Kšœœ˜Kšœ œ˜Kšœœœ˜Kšœ œœ˜+Kšœœ˜K˜Kšœœœ˜Kšœœ˜KšœÏgœ œœ˜Kšœœ˜KšœŸœ˜,Kšœœ˜Kšœ˜Kšœ˜—K˜K˜—…—ÌH