DIRECTORY
Imager USING [Color, ColorOperator, Context, Font, Object, PathProc, PixelArray, PixelMap, Rectangle, SampleMap, ScanMode, Transformation, VEC, XStringProc],
ImagerBackdoor USING [Clipper, CoordSys, IntKey, RealKey, Visibility],
Prop USING [PropList],
SF USING [Vec];

ImagerPrivate: CEDAR DEFINITIONS
~ BEGIN OPEN ImagerBackdoor, Imager;
Class: TYPE ~ REF ClassRep;
ClassRep: TYPE ~ RECORD [
type: ATOM м,
Save: PROC [context: Context, all: BOOL] RETURNS [REF] м,
Restore: PROC [context: Context, ref: REF] м,
SetInt: PROC [context: Context, key: IntKey, val: INT] м,
SetReal: PROC [context: Context, key: RealKey, val: REAL] м,
SetT: PROC [context: Context, m: Transformation] м,
SetFont: PROC [context: Context, font: Font] м,
SetColor: PROC [context: Context, color: Color] м,
SetClipper: PROC [context: Context, clipper: Clipper] м,
GetInt: PROC [context: Context, key: IntKey] RETURNS [INT] м,
GetReal: PROC [context: Context, key: RealKey] RETURNS [REAL] м,
GetT: PROC [context: Context] RETURNS [Transformation] м,
GetFont: PROC [context: Context] RETURNS [Font] м,
GetColor: PROC [context: Context] RETURNS [Color] м,
GetClipper: PROC [context: Context] RETURNS [Clipper] м,
ConcatT: PROC [context: Context, m: Transformation] м,
Scale2T: PROC [context: Context, s: VEC] м,
RotateT: PROC [context: Context, a: REAL] м,
TranslateT: PROC [context: Context, t: VEC] м,
Move: PROC [context: Context, rounded: BOOL] м,
SetXY: PROC [context: Context, p: VEC] м,
SetXYRel: PROC [context: Context, v: VEC] м,
GetCP: PROC [context: Context, rounded: BOOL] RETURNS [VEC] м,
StartUnderline: PROC [context: Context] м,
MaskUnderline: PROC [context: Context, dy, h: REAL] м,
CorrectMask: PROC [context: Context] м,
CorrectSpace: PROC [context: Context, v: VEC] м,
Space: PROC [context: Context, x: REAL] м,
SetCorrectMeasure: PROC [context: Context, v: VEC] м,
SetCorrectTolerance: PROC [context: Context, v: VEC] м,
Correct: PROC [context: Context, action: PROC] м,
DontCorrect: PROC [context: Context, action: PROC, saveCP: BOOL] м,
SetGray: PROC [context: Context, f: REAL] м,
SetSampledColor: PROC [context: Context, pa: PixelArray, m: Transformation, colorOperator: ColorOperator] м,
SetSampledBlack: PROC [context: Context, pa: PixelArray, m: Transformation, clear: BOOL] м,
Clip: PROC [context: Context, path: PathProc, oddWrap: BOOL, exclude: BOOL] м,
ClipRectangle: PROC [context: Context, r: Rectangle, exclude: BOOL] м,
ClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL] м,
Show: PROC [context: Context, string: XStringProc, xrel: BOOL] м,
ShowBackward: PROC [context: Context, string: XStringProc] м,
MaskFill: PROC [context: Context, path: PathProc, oddWrap: BOOL] м,
MaskRectangle: PROC [context: Context, r: Rectangle] м,
MaskStroke: PROC [context: Context, path: PathProc, closed: BOOL] м,
MaskPixel: PROC [context: Context, pa: PixelArray] м,
ShowAndFixedXRel: PROC [context: Context, string: XStringProc, x: REAL] м,
ShowText: PROC [context: Context, text: REF READONLY TEXT, start, len: NAT, xrel: BOOL] м,
MaskRectangleI: PROC [context: Context, x, y, w, h: INTEGER] м,
MaskVector: PROC [context: Context, p1, p2: VEC] м,
MaskDashedStroke: PROC [context: Context, path: PathProc, patternLen: NAT, pattern: PROC [NAT] RETURNS [REAL], offset, length: REAL] м,
MaskBitmap: PROC [context: Context, bitmap: SampleMap, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC] м,
DrawBitmap: PROC [context: Context, bitmap: SampleMap, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC] м,
DrawPixels: PROC [context: Context, pixelMap: PixelMap, colorOperator: ColorOperator, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC] м,
DoIfVisible: PROC [context: Context, r: Rectangle, action: PROC] м,
DoWithBuffer: PROC [context: Context, action: PROC, x, y, w, h: INTEGER, backgroundColor: Color] м,
DrawObject: PROC [context: Context, object: Object, position: VEC, interactive: BOOL] м,
GetBounds: PROC [context: Context] RETURNS [Rectangle] м,
ViewReset: PROC [context: Context] м,
ViewTranslateI: PROC [context: Context, x, y: INTEGER] м,
ViewClip: PROC [context: Context, path: PathProc, oddWrap: BOOL, exclude: BOOL] м,
ViewClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL] м,
GetTransformation: PROC [context: Context, from, to: CoordSys] RETURNS [Transformation] м,
Transform: PROC [context: Context, v: VEC, from, to: CoordSys, vec: BOOL] RETURNS [VEC] м,
MoveViewRectangle: PROC [context: Context, width, height, fromX, fromY, toX, toY: INTEGER] м,
TestViewRectangle: PROC [context: Context, x, y, w, h: INTEGER] RETURNS [Visibility] м,
GetBufferColorOperator: PROC [context: Context] RETURNS [ColorOperator],
AccessBuffer: PROC [context: Context, action: PROC [pixelMap: PixelMap], path: PathProc, oddWrap: BOOL],
SaveBuffer: PROC [context: Context, id: ATOM, path: PathProc, oddWrap: BOOL],
RestoreBuffer: PROC [context: Context, id: ATOM],
DiscardBuffer: PROC [context: Context, id: ATOM],
propList: Prop.PropList м NIL
];
DefaultShowAndFixedXRel: PROC [context: Context, string: XStringProc, x: REAL];
DefaultShowText: PROC [context: Context, text: REF READONLY TEXT, start, len: NAT, xrel: BOOL];
DefaultMaskRectangleI: PROC [context: Context, x, y, w, h: INTEGER];
DefaultMaskVector: PROC [context: Context, p1, p2: VEC];
DefaultMaskDashedStroke: PROC [context: Context, path: PathProc, patternLen: NAT, pattern: PROC [NAT] RETURNS [REAL], offset, length: REAL];
DefaultMaskBitmap: PROC [context: Context, bitmap: SampleMap, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC];
DefaultDrawBitmap: PROC [context: Context, bitmap: SampleMap, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC];
DefaultDrawPixels: PROC [context: Context, pixelMap: PixelMap, colorOperator: ColorOperator, referencePoint: SF.Vec, scanMode: ScanMode, position: VEC];
DefaultDoWithBuffer: PROC [context: Context, action: PROC, x, y, w, h: INTEGER, backgroundColor: Color];
DefaultDrawObject: PROC [context: Context, object: Object, position: VEC, interactive: BOOL];
DefaultDoIfVisible: PROC [context: Context, r: Rectangle, action: PROC];
DefaultGetBounds: PROC [context: Context] RETURNS [Rectangle];
DefaultViewReset: PROC [context: Context];
DefaultViewTranslateI: PROC [context: Context, x, y: INTEGER];
DefaultViewClip: PROC [context: Context, path: PathProc, oddWrap: BOOL, exclude: BOOL];
DefaultViewClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL];
DefaultTransform: PROC [context: Context, v: VEC, from, to: CoordSys, vec: BOOL] RETURNS [VEC];
DefaultGetTransformation: PROC [context: Context, from, to: CoordSys] RETURNS [Transformation];
DefaultMoveViewRectangle: PROC [context: Context, width, height, fromX, fromY, toX, toY: INTEGER];
DefaultTestViewRectangle: PROC [context: Context, x, y, w, h: INTEGER] RETURNS [Visibility];

DefaultGetBufferColorOperator: PROC [context: Context] RETURNS [ColorOperator];
DefaultAccessBuffer: PROC [context: Context, action: PROC [pixelMap: PixelMap], path: PathProc, oddWrap: BOOL];
DefaultSaveBuffer: PROC [context: Context, id: ATOM, path: PathProc, oddWrap: BOOL];
DefaultRestoreBuffer: PROC [context: Context, id: ATOM];
DefaultDiscardBuffer: PROC [context: Context, id: ATOM];

END.
  ╬  
ImagerPrivate.mesa
Copyright ╙ 1985, 1986, 1987, 1989, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, September 7, 1989 2:56:21 pm PDT
Doug Wyatt, January 19, 1987 6:01:20 pm PST

The Imager Class
Class operations for maintaining the imager state; see ImagerState for default implementations.
Essential class operations; must be supplied by the particular implementation.
Convenience operations; default implementations express these in terms of the essential ones.
View and raster operations; default implementations default benignly or raise an appropriate error.
Default implementations for the convenience operators.
Default implementations for the view operations.
Michael Plass, October 4, 1988 9:33:40 am PDT
Removed DoSave class proc, added Save & Restore (ala MasterBlaster):
DoSave: PROC [context: Context, action: PROC, all: BOOL] _, -- subsumed by Save & Restore
Michael Plass, August 3, 1989 1:38:22 pm PDT
Added NewPropList class proc
 Э╩Z  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬIЩTKЩ/KЪЬ+Щ+KЩ ЧЪ╧k	Ш	KЪЬЮЬЮЬШЭKЪЬЮЬ2ШFKЪЬЮЬШKЪЮЬЮЬШЧKШ KЪ╨blЬЮЬЮШ KЪЬЮЬЮЬШ$headЩKЪЬЮЬЮЬ
ШЪЬ
ЮЬЮЬШKЪЬЮЬШЧЩ_KЪ
╧nЬЮЬЮЬЮЬЮЬШ9KЪаЬЮЬЮЬШ-KЪаЬЮЬ&ЮЬШ9KЪаЬЮЬ'ЮЬШ<KЪаЬЮЬ)Ш3KЪаЬЮЬ"Ш/KЪаЬЮЬ$Ш2KЪа
ЬЮЬ(Ш8KЪаЬЮЬ!ЮЬЮЬШ=KЪаЬЮЬ"ЮЬЮЬШ@KЪаЬЮЬЮЬШ9KЪаЬЮЬЮЬ
Ш2KЪаЬЮЬЮЬШ4KЪа
ЬЮЬЮЬШ8KЪаЬЮЬ)Ш6KЪаЬЮЬЮЬШ+KЪаЬЮЬЮЬШ,KЪа
ЬЮЬЮЬШ.KЪаЬЮЬЮЬШ/KЪаЬЮЬЮЬШ)KЪаЬЮЬЮЬШ,KЪ
аЬЮЬЮЬЮЬЮЬШ>KЪаЬЮЬШ*KЪаЬЮЬЮЬШ6KЪаЬЮЬШ'KЪаЬЮЬЮЬШ0KЪаЬЮЬЮЬШ*KЪаЬЮЬЮЬШ5KЪаЬЮЬЮЬШ7KЪаЬЮЬЮЬШ1KЪаЬЮЬЮЬ
ЮЬШCKЪаЬЮЬЮЬШ,KЪаЬЮЬWШlKЪаЬЮЬ>ЮЬШ[KЪаЬЮЬ-ЮЬЮЬШNKЪаЬЮЬ+ЮЬШFKЪаЬЮЬ ЮЬЮЬШNЧЩNKЪаЬЮЬ/ЮЬШAKЪаЬЮЬ+Ш=KЪаЬЮЬ-ЮЬШCKЪаЬЮЬ$Ш7KЪа
ЬЮЬ,ЮЬШDKЪа	ЬЮЬ&Ш5ЧЩ]KЪаЬЮЬ,ЮЬШJKЪаЬЮЬЮЬЮЬЮЬЮЬЮЬШZKЪаЬЮЬ ЮЬШ?KЪа
ЬЮЬЮЬШ3KЪаЬЮЬ0ЮЬЮЬЮЬЮЬЮЬЮЬШЗKЪа
ЬЮЬ7ЮЬ$ЮЬШtKЪа
ЬЮЬ7ЮЬ$ЮЬШtKЪа
ЬЮЬVЮЬ$ЮЬШУKЪаЬЮЬ*ЮЬШCKЪаЬЮЬЮЬЮЬШcKЪа
ЬЮЬ.ЮЬЮЬШXЧЪЬcЩcKЪа	ЬЮЬЮЬШ9KЪа	ЬЮЬШ%KЪаЬЮЬЮЬШ9KЪаЬЮЬ-ЮЬЮЬШRKЪаЬЮЬ ЮЬЮЬШRKЪаЬЮЬ(ЮЬШZKЪа	ЬЮЬЮЬЮЬЮЬЮЬШZKЪаЬЮЬЮЬ'ЮЬШ]KЪаЬЮЬ ЮЬЮЬШWKЪаЬЮЬЮЬШHKЪаЬЮЬЮЬ0ЮЬШhKЪа
ЬЮЬЮЬЮЬШMKЪаЬЮЬЮЬШ1KЪаЬЮЬЮЬШ1KЪЬЮШKШЧЧЩ6KЪаЬЮЬ,ЮЬШOKЪаЬЮЬЮЬЮЬЮЬЮЬЮЬШ_KЪаЬЮЬ ЮЬШDKЪаЬЮЬЮЬШ8KЪаЬЮЬ0ЮЬЮЬЮЬЮЬЮЬЮЬШМKЪаЬЮЬ7ЮЬ$ЮЬШyKЪаЬЮЬ7ЮЬ$ЮЬШyKЪаЬЮЬVЮЬ$ЮЬШШKЪаЬЮЬЮЬЮЬШhKЪаЬЮЬ.ЮЬЮЬШ]ЧЩ0KЪаЬЮЬ*ЮЬШHKЪаЬЮЬЮЬШ>KЪаЬЮЬШ*KЪаЬЮЬЮЬШ>KЪаЬЮЬ-ЮЬЮЬШWKЪаЬЮЬ ЮЬЮЬШWKЪаЬЮЬЮЬЮЬЮЬЮЬШ_KЪаЬЮЬ(ЮЬШ_KЪаЬЮЬЮЬ'ЮЬШbЪаЬЮЬ ЮЬЮЬШ\KШ ЧKЪаЬЮЬЮЬШOKЪаЬЮЬЮЬ0ЮЬШoKЪаЬЮЬЮЬЮЬШTKЪаЬЮЬЮЬШ8ЪаЬЮЬЮЬШ8KШ ЧЧKЪЮЬШЪ╧z-Щ-KЪб╨nzбвбвбЩDKЪвб╨kzбгбгбвбвЩYЧЪб,Щ,KЪбабЩЧЧ ЕЧ    \  (Д  