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]; 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. ΪImagerMask.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass, May 16, 1985 12:15:42 pm PDT Doug Wyatt, May 19, 1985 4:03:37 pm PDT (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. For each run, sMin IN [sRuns..sRuns+sSize) AND fMin IN [fRuns..fRuns+fSize) The origin of the character mask is at (s, f); all runs will lie within clip. Κm˜codešœ™Kšœ Οmœ1™K˜—š œžœ*žœ˜aKšœM™MK™—š œžœžœ˜IK™—K™Kšžœ˜—…—R™