<> <> <<>> 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] ; <<-- 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]>> Equalize: PROC [histogram: Histogram] RETURNS [trcVec: TRCVec] ; <<-- Builds a TRC by integrating the histogram>> END.