[_CDCSL_93-16_]<1>Cedar>release>Histograms>OldHistogramsViewingPrivate.mesa

HistogramsViewingPrivate.mesa

Last tweaked by Mike Spreitzer on December 1, 1988 6:52:19 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,

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]

];