DIRECTORY Rope; Hist: CEDAR DEFINITIONS = BEGIN MaxPixel: NAT = 255; Histogram: TYPE = REF HistogramRec; HistogramRec: TYPE = ARRAY [0..MaxPixel] OF REAL; TRCVertexRec: TYPE = RECORD [ pinned: BOOLEAN _ FALSE, -- other vertices are interpolated between pinned vertices out: NAT _ 0 ]; TRCVec: TYPE = REF TRCVecRec; TRCVecRec: TYPE = ARRAY [0..MaxPixel] OF TRCVertexRec; Calc: PROC [filename:Rope.ROPE, low,high:NAT] RETURNS [histogram: Histogram] ; Equalize: PROC [histogram: Histogram] RETURNS [trcVec: TRCVec] ; END. Hist.mesa Mik Lamming - October 23, 1984 11:44:30 am PDT -- Builds a frequency histogram for the 8-bit AIS file. Only counts values int the -- range [low..high]. Returns a 256 elt. array of REAL values in the range [0.0..1.0] -- Builds a TRC by integrating the histogram Ê%˜J™ J™.J™JšÏk œ˜J˜šÏn˜J˜Jšœ œ˜Jšœ œœ˜#Jš œœœœœ˜1J˜šœœœ˜JšœœœÏc;˜UJšœœ˜ J˜—Jšœœœ ˜Jšœ œœœ˜6J˜Jš žœœœ œœ˜NJšœS™SJšŸV™VJ˜J•StartOfExpansion[]šžœœœ˜@J™,J˜Jšœ˜——…—M