<> <> <> <> DIRECTORY ImagerDevice USING [CharMask, DeviceBox, RunProc], ImagerPixelMap USING [PixelMap, DeviceRectangle]; ImagerMask: CEDAR DEFINITIONS ~ BEGIN CharMask: TYPE ~ ImagerDevice.CharMask; RunProc: TYPE ~ ImagerDevice.RunProc; DeviceBox: TYPE ~ ImagerDevice.DeviceBox; PixelMap: TYPE ~ ImagerPixelMap.PixelMap; DeviceRectangle: TYPE ~ ImagerPixelMap.DeviceRectangle; RunsFromBitmap: PROC [bitmap: PixelMap, run: RunProc]; <<>> RunsFromBits: PROC [base: LONG POINTER, wordsPerLine: NAT, sBits, fBits, sSize, fSize: NAT, sRuns, fRuns: INTEGER, run: RunProc]; <<(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.>> <> RunsFromBox: PROC [box: DeviceBox, run: RunProc]; RunsFromRectangle: PROC [rect: DeviceRectangle, run: RunProc]; RunsFromCharMask: PROC [charMask: CharMask, run: RunProc, s, f: INTEGER, clip: DeviceRectangle]; <> <<>> BitmapFromCharMask: PROC [charMask: CharMask] RETURNS [bitmap: PixelMap]; <<>> <<>> END.