<> <> <> <> DIRECTORY ImagerDevice USING [CharMask], ImagerSample USING [SampleMap], SF USING [Box, BoxAction, BoxGenerator, Vec]; ImagerMask: CEDAR DEFINITIONS ~ BEGIN Box: TYPE ~ SF.Box; BoxAction: TYPE ~ SF.BoxAction; BoxGenerator: TYPE ~ SF.BoxGenerator; CharMask: TYPE ~ ImagerDevice.CharMask; SampleMap: TYPE ~ ImagerSample.SampleMap; RunProc: TYPE ~ PROC [min: SF.Vec, count: NAT]; BoxesFromBitmap: PROC [bitmap: SampleMap, boxAction: BoxAction]; <<>> BoxesFromBits: PROC [base: LONG POINTER, wordsPerLine: NAT, sBits, fBits, sSize, fSize: NAT, sRuns, fRuns: INTEGER, boxAction: BoxAction]; <<(sBits, fBits) is the min corner of the rectangle in the bitmap.>> <<(sRuns, fRuns) is the min corner of the rectangle in the output coordinate system.>> <> RunsFromBoxes: PROC [boxes: BoxGenerator, run: RunProc]; RunsFromCharMask: PROC [charMask: CharMask, run: RunProc, s, f: INTEGER, clip: Box]; <> <<>> BitmapFromCharMask: PROC [charMask: CharMask] RETURNS [bitmap: SampleMap]; <<>> <<>> END.