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.