DIRECTORYImagerColorDefs USING [Color],ImagerFont USING [XChar],ImagerTransformation USING [Transformation],Scaled USING [Value],Vector2 USING [VEC];ImagerDev: CEDAR DEFINITIONS~ BEGINColor: TYPE ~ ImagerColorDefs.Color;XChar: TYPE ~ ImagerFont.XChar;Transformation: TYPE ~ ImagerTransformation.Transformation;VEC: TYPE ~ Vector2.VEC;DeviceBox: TYPE ~ RECORD[smin, fmin, smax, fmax: CARDINAL];RunProc: TYPE ~ PROC[sMin, fMin: INTEGER, fSize: NAT];BoxProc: TYPE ~ PROC[DeviceBox];HalftoneParameters: TYPE ~ RECORD[dotsPerInch: REAL,angle: REAL, -- degrees anticlockwise from +x axisshape: REAL -- 0.5 is circular];Device: TYPE ~ REF DeviceRep;DeviceRep: TYPE ~ RECORD[class: Class, -- class operationsdata: REF, -- instance databox: DeviceBox, -- bounding rectangle, in device coordinatessurfaceToDevice: Transformation, -- transformation from surface to device coordinatessurfaceUnitsPerInch: VEC, -- x and y scale factorssurfaceUnitsPerPixel: NAT -- surface resolution may be a multiple of pixel resolution];CharMask: TYPE ~ REF CharMaskRep;Pad15: TYPE ~ PACKED ARRAY [0..15) OF [0..1];CharMaskRep: TYPE ~ MACHINE DEPENDENT RECORD [font: REF, char: XChar,sWidth, fWidth: Scaled.Value,sMinBB, fMinBB: INTEGER,sSizeBB, fSizeBB: CARDINAL,metricsValid: BOOLEAN,  -- number above are invalid if this is true.amplified: BOOLEAN,correctSpace: BOOLEAN,correctMask: BOOLEAN,flag: PACKED ARRAY [0..10) OF [0..1],  -- for padding and expansiondata: SELECT rep: * FROMraster => [bits: SEQUENCE COMPUTED CARDINAL -- sSize*Ceiling[fSize/16.0] -- OF WORD],runs => [run: SEQUENCE nRuns: CARDINAL OF Run],uncached => [],ENDCASE];Run: TYPE ~ MACHINE DEPENDENT RECORD [fMin: CARDINAL, lastRun: BOOLEAN, fSize: NAT];Class: TYPE ~ REF ClassRep;ClassRep: TYPE ~ RECORD[type: ATOM,SetColor: PROC[device: Device, color: Color, viewToDevice: Transformation],SetPriority: PROC[device: Device, priorityImportant: BOOL],SetHalftone: PROC[device: Device, halftone: HalftoneParameters],MaskRuns: PROC[device: Device, bounds: DeviceBox, runs: PROC[RunProc]],MaskBoxes: PROC[device: Device, bounds: DeviceBox, boxes: PROC[BoxProc]],MaskBits: PROC[device: Device, srcBase: LONG POINTER, srcWordsPerLine: NAT, ts, tf: INTEGER, replace: BOOL _ FALSE, boxes: PROC[BoxProc]],MoveBoxes: PROC[device: Device, ts, tf: INTEGER, boxes: PROC[BoxProc]],MaskChar: PROC[device: Device, s, f: INTEGER, mask: CharMask]];END.     ImagerDev.mesaCopyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Doug Wyatt, May 3, 1985 11:32:14 am PDTMichael Plass, May 16, 1985 12:45:42 pm PDTfont and char together provide a unique identifier for this maskfMin is relative to fMinBBЭ╩╔  Ш codeЪЬЩKЪЬ
╧mЬ7ЩBKЪЬ'Щ'KЩ+ЧKШ Ъ╧k	Ш	KЪЬЮЬ	ШKЪЬЮЬ	ШKЪЬЮЬШ,KЪЬЮЬ	ШKЪЬЮЬЮЬШЧKШ KЪ╨bl	ЬЮЬЮШKЪЬЮШKШ KЪЬЮЬШ$KЪЬЮЬШKЪЬЮЬ'Ш;KЪЮЬЮЬЮЬШKШ KЪЬЮЬЮЬЮЬШ;KШ KЪ	Ь	ЮЬЮЬЮЬ	ЮЬШ6ЪЬ	ЮЬЮЬШ KШ ЧЪЬЮЬЮЬШ"KЪЬЮЬШKЪЬЮЬ╧c%Ш2KЪЬЮЬаШKШKШ ЧKЪЬЮЬЮЬШЪЬЮЬЮЬШKЪЬаШ!KЪЬЮЬаШKЪЬа,Ш<KЪЬ!а4ШUKЪЬЮЬаШ2KЪЬЮЬа;ШUKЪЬШKШ ЧKЪЬ
ЮЬЮЬШ!KЪ	ЬЮЬЮЬЮЬ	ЮЬШ-Ъ	ЬЮЬЮЬЮ	ЬЮЬШ.ЪЬЮЬШKЪЬ@Щ@ЧKШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬа,ШDKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬЮЬ	ЮЬ
аШCЪЬЮЬЮШKЪЬЮЬЮЬЮЬаЬЮЬЮЬШUKЪЬЮЬЮЬЮЬШ/KЪЬШKЪЮШЧKЪЬШKШ ЧЪЬЮЬЮЬЮ	ЬЮЬЮЬЮЬ	ЮЬШTKЪЬЩKШ ЧKЪЬЮЬЮЬ
ШЪЬ
ЮЬЮЬШKЪЬЮЬШKЪ╧nЬЮЬ=ШKKЪбЬЮЬ$ЮЬШ;KЪбЬЮЬ/Ш@KЪбЬЮЬ*ЮЬШGKЪб	ЬЮЬ+ЮЬШIKЪбЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ	ЮЬШЛKЪб	ЬЮЬЮЬ	ЮЬШGKЪбЬЮЬЮЬШ=KШKШ ЧKЪЮЬШЧ ЕЧ    	Ф  e  