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] ]; }. dHistogramsViewingPrivate.mesa Last tweaked by Mike Spreitzer on January 10, 1991 3:43 pm PST Κέ– "cedar" style˜code™K™>—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˜—…—Y