
    <<HistogramsViewingPrivate.mesa>>
        <<Last tweaked by Mike Spreitzer on January 10, 1991 3:43 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,
        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,
        fit
        shownCoefs: ColumnN _ NIL,
        shownRange: RealRange1--of i-- _ [1.0, 0.0],
        tweakConst: VEC _ [0.0, 0.0],
        minIn: IntPair _ [0, 0]
        ];

    }.