DIRECTORY
ImagerBox USING [Rectangle],
ImagerBrick USING [HalftoneProperties],
ImagerClipper USING [Clipper],
ImagerColor USING [Color, ColorOperator],
ImagerDeviceVector USING [DVec],
ImagerFont USING [Font, XCharProc, XStringProc],
ImagerManhattan USING [Polygon],
ImagerMaskCache USING [CharFlags, CharMask, MaskCache, Parameters],
ImagerPath USING [PathProc],
ImagerPen USING [Pen],
ImagerPixel USING [PixelMap],
ImagerPixelArray USING [PixelArray],
ImagerSample USING [EdgeAction, RawDescriptor, SampleMap],
ImagerTransformation USING [ScanMode, Transformation],
Prop USING [PropList],
SF USING [Box, BoxGenerator, Vec],
Vector2 USING [VEC];

ImagerDevice: CEDAR DEFINITIONS
~ BEGIN OPEN ImagerBox, ImagerPath, ImagerPen, ImagerPixelArray, ImagerSample, ImagerTransformation, Vector2;
MakeDevice: PUBLIC PROC [class: DeviceClass, parm: DeviceParm, state: DeviceState м NIL, data: REF] RETURNS [Device]; -- provides standard works class

Device: TYPE ~ REF DeviceRepr; -- NOTE: Use MakeDevice to allocate this
DeviceRepr: TYPE ~ RECORD [
works: WorksClass,	-- higher-level masking operations
worksState: WorksState,	-- state information for the works level
class: DeviceClass,	-- class operations
parm: DeviceParm,	-- static data
state: DeviceState,	-- dynamic, non-class-specific data
data: REF		-- class-specific data
];

DeviceState: TYPE ~ REF DeviceStateRep;
DeviceStateRep: TYPE ~ RECORD [
allow: AllowedMasks,	-- allowed mask operations for current color
bounds: SF.Box,	-- works level allows no masking outside of these bounds
scratchRawBitmapList: LIST OF ImagerSample.RawDescriptor
];
AllowedMasks: TYPE ~ PACKED RECORD [
unorderedBoxes: BOOL м FALSE,
multipleCoverage: BOOL м FALSE,
regionFill: BOOL м FALSE,
bitmap: BOOL м FALSE,
rawBitmaps: BOOL м FALSE,
runGroupChar: BOOL м FALSE,
rasterChar: BOOL м FALSE,
pixelArray: BOOL м FALSE
];

DeviceClass: TYPE ~ REF DeviceClassRep;
DeviceClassRep: TYPE ~ RECORD [
SetColor: PROC [device: Device, color: ImagerColor.Color, viewToDevice: ImagerTransformation.Transformation] м,
SetPriority: PROC [device: Device, priorityImportant: BOOL] м NIL,
SetHalftoneProperties: PROC [device: Device, halftoneProperties: ImagerBrick.HalftoneProperties] м NIL,
MaskBoxes: PROC [device: Device, bounds: SF.Box, boxes: SF.BoxGenerator] м ,
MaskRegion: PROC [device: Device, bounds: SF.Box, edgeGenerator: PROC [ImagerSample.EdgeAction]] м NIL,
MaskBitmap: PROC [device: Device, bitmap: ImagerSample.SampleMap, delta: SF.Vec, bounds: SF.Box, boxes: SF.BoxGenerator] м NIL,
MaskPixelArray: PROC [device: Device, bitmap: PixelArray, clientToDevice: Transformation, bounds: SF.Box, boxes: SF.BoxGenerator] м NIL,
MaskRawBitmaps: PROC [device: Device, list: LIST OF ImagerSample.RawDescriptor] м NIL,
DrawBitmap: PROC [device: Device, bitmap: ImagerSample.SampleMap, delta: SF.Vec, bounds: SF.Box, boxes: SF.BoxGenerator] м NIL,
MaskChar: PROC [device: Device, delta: SF.Vec, mask: ImagerMaskCache.CharMask] м NIL,
MoveBox: PROC [device: Device, dstMin, srcMin, size: SF.Vec] м NIL,
SwitchBuffer: PROC [device: Device, bounds: SF.Box, copy: BOOL, alt: BOOL] м NIL,
GetBufferColorOperator: PROC [device: Device] RETURNS [ImagerColor.ColorOperator] м NIL,
AccessBuffer: PROC [device: Device, box: SF.Box, action: PROC [pixelMap: ImagerPixel.PixelMap]] м NIL,
propList: Prop.PropList м NIL
];
MakeDeviceParm: PROC [class: DeviceClass, sSize, fSize: NAT, scanMode: ImagerTransformation.ScanMode, surfaceUnitsPerInch: Vector2.VEC, surfaceUnitsPerPixel: NAT м 1, fontCache: ImagerMaskCache.MaskCache м NIL, parameters: ImagerMaskCache.Parameters м NIL, propList: Prop.PropList м NIL] RETURNS [DeviceParm];

ClassOption: TYPE = { SetPriority, DrawBitmap, MoveBox, SwitchBuffer, AccessBuffer };
ClassHas: TYPE = PACKED ARRAY ClassOption OF BOOL;

DeviceParm: TYPE ~ REF DeviceParmRepr; -- Note: Use MakeDeviceParm to allocate this
DeviceParmRepr: TYPE ~ RECORD [
classHas: ClassHas, -- class operations
sSize, fSize: NAT, -- size of device coordinate system
scanMode: ImagerTransformation.ScanMode, -- orientation of device coordinate system
surfaceUnitsPerInch: Vector2.VEC, -- x and y scale factors
surfaceUnitsPerPixel: NAT, -- surface resolution may be a multiple of pixel resolution
fontCache: ImagerMaskCache.MaskCache м NIL, -- cache for device-dependent character masks
parameters: ImagerMaskCache.Parameters м NIL, -- Parameters for non-font applications (i.e., stroke thickening)
propList: Prop.PropList м NIL
];

WorksState: TYPE = RECORD [
clipper: DeviceClipper, -- the composite clipper, in device coordinates
clipperToDevice: Transformation, -- coordinate system for client clipper
clientClipper: ImagerClipper.Clipper -- The client clipping region
];

DeviceClipper: TYPE = REF DeviceClipperRep;
DeviceClipperRep: TYPE = RECORD [clipBox: SF.Box, clipMask: ImagerManhattan.Polygon];

ordinaryMetrics: ImagerMaskCache.CharFlags ~ [amplified: FALSE, correction: mask, missing: FALSE];
EasyMetrics: TYPE = {all, ordinary, none};

ClipWorksProc: TYPE ~ PROC [
device: Device,
viewClipper: DeviceClipper, -- clipping region for the view
clipperToDevice: Transformation, -- coordinate system for client clipper
clientClipper: ImagerClipper.Clipper -- client clipping region
];

MaskFillWorksProc: TYPE ~ PROC [
device: Device,
path: PathProc, oddWrap: BOOL,
pathToDevice: Transformation
];

MaskRectangleWorksProc: TYPE ~ PROC [
device: Device,
rectangle: Rectangle,
rectangleToDevice: Transformation
];

MaskStrokeWorksProc: TYPE ~ PROC [
device: Device,
path: PathProc, closed: BOOL,
pathToDevice: Transformation, end: INT, joint: INT, miterLimit: REAL,
pen: Pen
];

MaskVectorWorksProc: TYPE ~ PROC [
device: Device,
p1, p2: VEC,
pointsToDevice: Transformation, end: INT,
pen: Pen
];

MaskDashedStrokeWorksProc: TYPE ~ PROC [
device: Device,
path: PathProc,
patternLen: NAT,
pattern: PROC [NAT] RETURNS [REAL],
offset: REAL,
length: REAL,
closed: BOOL,
pathToDevice: Transformation,
end: INT,
joint: INT,
miterLimit: REAL,
pen: Pen
];

MaskBitmapWorksProc: TYPE ~ PROC [
device: Device,
bitmap: SampleMap,
bitsToDevice: Transformation
];

MaskPixelArrayWorksProc: TYPE ~ PROC [
device: Device,
bitmap: PixelArray,
clientToDevice: Transformation
];

MaskBoxesWorksProc: TYPE ~ PROC [
device: Device,
bounds: SF.Box, boxes: SF.BoxGenerator
];

MaskCharMaskWorksProc: TYPE ~ PROC [
device: Device,
charMask: ImagerMaskCache.CharMask,
cp: ImagerDeviceVector.DVec
] RETURNS [ok: BOOL м TRUE];

ShowWorksProc: TYPE ~ PROC [
device: Device,
fontAtom: ImagerFont.Font,
string: ImagerFont.XStringProc,
cp: ImagerDeviceVector.DVec, -- Gets side-effected
hardChar: ImagerFont.XCharProc, -- side-effects cp
hardMetrics: PROC [charMask: ImagerMaskCache.CharMask], -- side-effects cp
easyMetrics: EasyMetrics, -- says when we should call hardMetrics
noImage: BOOL -- says whether to skip masking
];

WorksClass: TYPE ~ REF WorksClassRep;
WorksClassRep: TYPE ~ RECORD [
Clip: ClipWorksProc,
MaskFill: MaskFillWorksProc,
MaskRectangle: MaskRectangleWorksProc,
MaskStroke: MaskStrokeWorksProc,
MaskVector: MaskVectorWorksProc,
MaskDashedStroke: MaskDashedStrokeWorksProc,
MaskBitmap: MaskBitmapWorksProc,
MaskPixelArray: MaskPixelArrayWorksProc,
MaskBoxes: MaskBoxesWorksProc,
MaskCharMask: MaskCharMaskWorksProc,
Show: ShowWorksProc
];

END.


   ж  
ImagerDevice.mesa
Copyright ╙ 1984, 1985, 1986, 1987, 1989, 1991, 1992 by Xerox Corporation.  All rights reserved.
Michael Plass, January 21, 1992 10:39 am PST
Doug Wyatt, January 19, 1987 7:55:35 pm PST

Device
Device Class
The common raster implementation calls these to do the device-dependent work.  At this level, clipping has been done; the masking procedures do not need to take the clipper into account.

If TRUE, boxes sent to MaskBoxes may come in any order; otherwise the boxes will be disjoint, nonempty, and for any two consecutive boxes a and b, b.min.s >= a.max.s-1.  This invariant is needed, for instance, by certain anti-aliasing implementations.
If TRUE, portions of the mask may be covered multiple times
If TRUE, may use MaskRegion
If TRUE, MaskBitmap may be called.
If TRUE, MaskRawBitmaps may be called.
If TRUE, MaskChar may be called with a run-group character; otherwise runs are generated.
If TRUE, MaskChar may be called with a raster character; otherwise MaskBitmap is called, or runs are generated.
If TRUE, MaskPixelArray may be called.
Notifies device of a color change.  Sets device.state.allow to indicate the kinds of masks that the device is willing to accept.
Notifies device of a change to priorityImportant.
Notifies device of a change to halftoneProperties.
The basic means of communicating masks; this is the only mask proc that is required.
No guarantees about order if device.allow.unorderedBoxes is TRUE.  All boxes will fall within bounds.
Masks a monotone region designated by the edges.  The edgeGenerator must specify the edges in nondecreasing sMin order.
Optional proc for masking a bitmap.
Optional proc for masking a bitmap expressed as a PixelArray.
Optional proc for masking multiple bitmaps
Optional proc for drawing a bitmap.
Optional proc for masking a character from a font cache.
Optional proc for moving a rectangular region of the raster.  If not supplied, ImagerBackdoor.MoveViewRectangle will raise an error when called.
If supplied, allows full implementation of DoWithBuffer.
If copy=TRUE, device should copy from the old buffer to the new buffer; otherwise garbage in the new buffer is OK, since the first thing that will happen is to fill it with a color.
alt=TRUE if switching to a temp buffer, and FALSE if switching back to the main buffer.  These calls will always be paired (no nesting).
If supplied, allows full implementation of ImagerBackdoor.GetBufferColorOperator.
If supplied, allows full implementation of AccessBuffer.
Device Parameter Record
Static instance data that the common raster implementation needs to know.

Higher-level Masking Operations
These operations are the same for most devices, but are done in an object-oriented fashion.  See ImagerDeviceWorks for the standard, default implementations.  These masking procedures are responsible for turning the resolution-independent masks into resolution-dependent masks for the device-class procedures, taking into account the clipper.

 Э╩	┐  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬUЩ`KЩ,ЪЬ+Щ+KЩ ЧЧЪ╧k	Ш	KЪЬ
ЮЬШKЪЬЮЬШ'KЪЬЮЬШKЪЬЮЬШ)KЪЬЮЬШ KЪЬЮЬ Ш0KЪЬЮЬШ KЪЬЮЬ.ШCKЪЬЮЬШKЪЬ
ЮЬШKЪЬЮЬШKЪЬЮЬШ$KЪЬЮЬ(Ш:KЪЬЮЬШ6KЪЬЮЬШKЪЮЬЮЬШ"KЪЬЮЬЮЬШЧKШ KЪ╨blЬЮЬЮШKЪЬЮЬЮЬaШmheadЩKЪ╧n
ЬЮЬЮЬ=ЮЬЮЬЮЬ╧c ШЦKШ KЪЬЮЬЮЬб(ШGЪЬЮЬЮЬШKЪЬб"Ш5KЪЬб(Ш@KЪЬбШ'KЪЬбШ KЪЬб#Ш7KЪЬЮЬбШ!KЪЬШKШ ЧKЪЬЮЬЮЬШ'ЪЬЮЬЮЬШKЪЬб,ШAKЪЬЮЬб8ШHKЪЬЮЬЮЬШ8KЪЬШЧЧЩЩ║KЩ ЧЪЬЮЬЮЬЮЬШ$ЪЬЮЬЮЬШKЪЬЮЬЇЩ√ЧЪЬЮЬЮЬШKЪЬЮЬ4Щ;ЧЪЬЮЬЮЬШKЪЬЮЬЩЧЪЬЮЬЮЬШKЪЬЮЬЩ"ЧЪЬЮЬЮЬШKЪЬЮЬЩ&ЧЪЬЮЬЮЬШKЪЬЮЬRЩYЧЪЬЮЬЮЬШKЪЬЮЬhЩoЧЪЬЮЬЮШKЪЬЮЬЩ&ЧKЪЬШKШ ЧKЪЬЮЬЮЬШ'ЪЬЮЬЮЬШЪаЬЮЬaШoKЪЬАЩАЧЪаЬЮЬ%ЮЬЮЬШBKЩ1ЧЪаЬЮЬHЮЬШgKЩ2ЧЪа	ЬЮЬЮЬЮЬШLKЩTKЪЬ<ЮЬ%ЩeЧЪ
а
ЬЮЬЮЬЮЬЮЬШgKЪЬwЩwЧЪа
ЬЮЬ9ЮЬЮЬЮЬЮЬШKЪЬ#Щ#ЧЪ
аЬЮЬNЮЬЮЬЮЬШИKЪЬ=Щ=ЧЪ
аЬЮЬЮЬЮЬЮЬШVKЪЬ*Щ*ЧЪа
ЬЮЬ9ЮЬЮЬЮЬЮЬШKЪЬ#Щ#ЧЪаЬЮЬЮЬ(ЮЬШUKЪЬ8Щ8ЧЪаЬЮЬ(ЮЬЮЬШCKЪЬРЩРЧЪаЬЮЬЮЬЮЬЮЬЮЬШQKЪЬ8Щ8KЪЬЮЬйЩ╡KЪЬЮЬ$ЮЬWЩИЧЪаЬЮЬЮЬЮЬШXKЩQЧЪ
аЬЮЬЮЬЮЬ%ЮЬШfKЪЬ8Щ8ЧKЪЬЮШKШЧЧЩЩIKЩ ЧЪаЬЮЬ$ЮЬHЮЬЮЬ-ЮЬ+ЮЬЮЬЮЬШ╡KШ ЧKЪЬЮЬDШUЪЬ
ЮЬЮЬЮЬЮЬЮЬШ2KШ ЧKЪЬЮЬЮЬб,ШSЪЬЮЬЮЬШKЪЬбШ'KЪЬЮЬб#Ш6KЪЬ)б*ШSKЪЬЮЬбШ:KЪЬЮЬб;ШVKЪЬ'ЮЬб-ШYKЪЬ)ЮЬбAШoKЪЬЮШKЪЬШKШ ЧЧЪЬЩЩ╓KЩ ЧЪЬЮЬЮЬШKЪЬб/ШGKЪЬЬб'ШHKЪЬ%бШBKШKШ ЧKЪЬЮЬЮЬШ+ЪЬЮЬЮЬЮЬ)ШUKШ ЧKЪЬ9ЮЬЮЬШbЪЬЮЬШ*KШ ЧЪЬЮЬЮЬШKШKЪЬбШ;KЪЬ!б'ШHKЪЬ%бШ>KШKШ ЧЪЬЮЬЮЬШ KШKЪЬЮЬШKШKЪЬШKШ ЧЪЬЮЬЮЬШ%KШKШKШ!KЪЬШKШ ЧЪЬЮЬЮЬШ"KШKЪЬЮЬШKЪЬ#ЮЬ	ЮЬЮЬШEKШKЪЬШKШ ЧЪЬЮЬЮЬШ"KШKЪЬЮЬШKЪЬ%ЮЬШ)KШKЪЬШKШ ЧЪЬЮЬЮЬШ(KШKШKЪЬЮЬШKЪ	Ь	ЮЬЮЬЮЬЮЬШ#KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKШKЪЬЮЬШ	KЪЬЮЬШKЪЬЮЬШKШKЪЬШKШ ЧЪЬЮЬЮЬШ"KШKШKШKЪЬШKШ ЧЪЬЮЬЮЬШ&KШKШKШKЪЬШKШ ЧЪЬЮЬЮЬШ!KШKЪЬЮЬЮЬШ&KЪЬШKШ ЧЪЬЮЬЮЬШ$KШKЪЬ#Ш#KШKЪЬЮЬЮЬЮЬШKШ ЧЪЬЮЬЮЬШKЪЬШKШKЪЬШKЪЬбШ2KЪЬ бШ2KЪЬЮЬ'бШJKЪЬб'ШAKЪЬ	ЮЬбШ-KШKШ ЧKЪЬЮЬЮЬШ%ЪЬЮЬЮЬШKЪаЬШKЪаЬШKЪаЬШ&KЪа
ЬШ KЪа
ЬШ KЪаЬШ,KЪа
ЬШ KЪаЬШ(KЪа	ЬШKЪаЬШ$KЪаЬШKЪЬШKШ ЧЧKЪЮЬШKШ KШ KШ Ч ЕЧ    l  1╤  