DIRECTORY ImagerDev USING [CharMask, DeviceBox, RunProc], ImagerPixelMap USING [PixelMap, DeviceRectangle]; ImagerMask: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerDev, ImagerPixelMap; 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 Converting between different kinds of device-resolution representations (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. Κ;˜codešœ™Kšœ Οmœ1™K˜—š œžœ*žœ˜`KšœM™MK™—š œžœžœ˜IK™——Kšžœ˜J˜—…—”Η