<> <> <> DIRECTORY Imager USING [Color, ConstantColor, Context, Font, Outline, PathProc, Rectangle, Transformation, VEC]; ImagerBackdoor: CEDAR DEFINITIONS ~ BEGIN OPEN Imager; <> <> <<>> IntKey: TYPE ~ { -- for SetInt, GetInt priorityImportant, noImage, strokeEnd, strokeJoint, correctPass, int1, int2, int3 -- spares }; RealKey: TYPE ~ { -- for SetReal, GetReal DCScpx, DCScpy, mediumXSize, mediumYSize, fieldXMin, fieldYMin, fieldXMax, fieldYMax, strokeWidth, underlineStart, amplifySpace, correctShrink, correctMX, correctMY, correctTX, correctTY, real1, real2, real3 -- spares }; Clipper: TYPE ~ LIST OF ClipperItem; -- for SetClipper, GetClipper ClipperItem: TYPE ~ RECORD [outline: Outline, parity, exclude: BOOL _ FALSE]; SetInt: PROC [context: Context, key: IntKey, val: INT]; SetReal: PROC [context: Context, key: RealKey, val: REAL]; SetT: PROC [context: Context, m: Transformation]; 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]; GetCP: PROC [context: Context, rounded: BOOL _ FALSE] RETURNS [VEC]; <> <> GetBounds: PROC [context: Context] RETURNS [Rectangle]; <> <<>> <> Bitmap: TYPE ~ REF BitmapRep; BitmapRep: TYPE ~ RECORD [ ref: REF, base: LONG POINTER, wordsPerLine: NAT, width, height: NAT ]; NewBitmap: PROC [width, height: NAT] RETURNS [Bitmap]; BitmapContext: PROC [bitmap: Bitmap] RETURNS [Context]; <> ViewReset: PROC [context: Context]; ViewClip: PROC [context: Context, path: PathProc, parity, exclude: BOOL _ FALSE]; ViewClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL _ FALSE]; <> <<>> ViewTranslateI: PROC [context: Context, x, y: INTEGER]; ClientFromView: PROC [context: Context, p: VEC] RETURNS [VEC]; ViewFromClient: PROC [context: Context, p: VEC] RETURNS [VEC]; ViewFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC]; DeviceFromView: PROC [context: Context, p: VEC] RETURNS [VEC]; MoveViewRectangle: PROC [context: Context, width, height, fromX, fromY, toX, toY: INTEGER]; Visibility: TYPE ~ {none, part, all}; TestViewRectangle: PROC [context: Context, x, y, w, h: INTEGER] RETURNS [Visibility]; <> invert: READONLY ConstantColor; MakeStipple: PROC [stipple: WORD, xor: BOOL _ FALSE] RETURNS [Color]; DrawBits: PROC [context: Context, base: LONG POINTER, wordsPerLine: NAT, sMin, fMin, sSize, fSize: NAT, tx, ty: INTEGER _ 0]; DoIfVisible: PROC [context: Context, r: Rectangle, action: PROC]; <> <<>> ClientFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC]; DeviceFromClient: PROC [context: Context, p: VEC] RETURNS [VEC]; END.