DIRECTORY Imager, ImagerBasic; ImagerPrivate: CEDAR DEFINITIONS = BEGIN Context: TYPE = Imager.Context; FONT: TYPE = Imager.FONT; Color: TYPE = ImagerBasic.Color; IntPair: TYPE = ImagerBasic.IntPair; IntRectangle: TYPE = ImagerBasic.IntRectangle; Pair: TYPE = ImagerBasic.Pair; PathMapType: TYPE = ImagerBasic.PathMapType; PixelArray: TYPE = ImagerBasic.PixelArray; StrokeEnd: TYPE = ImagerBasic.StrokeEnd; Transformation: TYPE = ImagerBasic.Transformation; Visibility: TYPE = ImagerBasic.Visibility; Name: TYPE = {DCScpx, DCScpy, correctMX, correctMY, T, priorityImportant, mediumXSize, mediumYSize, fieldXMin, fieldYMin, fieldXMax, fieldYMax, showVec, color, noImage, strokeWidth, strokeEnd, underlineStart, amplifySpace, correctPass, correctShrink, correctTX, correctTY, clipOutline}; Class: TYPE = REF ClassRep; ClassRep: TYPE = RECORD[ deviceType: ATOM, Init: PROC [context: Context, info: REF] _, IGet: PROC[context: Context, n: Name] RETURNS[REF] _, ISet: PROC[context: Context, n: Name, x: REF] _, IGetReal: PROC[context: Context, n: Name] RETURNS[REAL] _, ISetReal: PROC[context: Context, n: Name, x: REAL] _, IGetInt: PROC[context: Context, n: Name] RETURNS[INT] _, ISetInt: PROC[context: Context, n: Name, x: INT] _, DoSave: PROC[context: Context, body: PROC] _, DoSaveAll: PROC[context: Context, body: PROC] _, ConcatT: PROC[context: Context, m: Transformation] _, TranslateT: PROC[context: Context, x, y: REAL] _, RotateT: PROC[context: Context, a: REAL] _, ScaleT: PROC[context: Context, s: REAL] _, Scale2T: PROC[context: Context, sx, sy: REAL] _, Move: PROC[context: Context] _, Trans: PROC[context: Context] _, SetXY: PROC[context: Context, p: Pair] _, IntegerSetXY: PROC[context: Context, x, y: INTEGER] _, SetXYRel: PROC[context: Context, v: Pair] _, IntegerSetXYRel: PROC[context: Context, x, y: INTEGER] _, GetCP: PROC[context: Context] RETURNS[Pair] _, GetCPRounded: PROC[context: Context] RETURNS[Pair] _, MaskFill: PROC[context: Context, pathMap: PathMapType, pathData: REF] _, MaskStroke: PROC[context: Context, pathMap: PathMapType, pathData: REF, strokeWidth: REAL, strokeEnd: StrokeEnd] _, MaskStrokeClosed: PROC[context: Context, pathMap: PathMapType, pathData: REF, strokeWidth: REAL] _, MaskVector: PROC[context: Context, x1, y1, x2, y2: REAL] _, IntegerMaskVector: PROC[context: Context, x1, y1, x2, y2: INTEGER] _, MaskRectangle: PROC[context: Context, x, y, w, h: REAL] _, IntegerMaskRectangle: PROC[context: Context, x, y, w, h: INTEGER] _, StartUnderline: PROC[context: Context] _, MaskUnderline: PROC[context: Context, dy, h: REAL] _, IntegerMaskUnderline: PROC[context: Context, dy, h: INTEGER] _, MaskPixel: PROC[context: Context, pa: PixelArray] _, ClipOutline: PROC[context: Context, pathMap: PathMapType, pathData: REF] _, ExcludeOutline: PROC[context: Context, pathMap: PathMapType, pathData: REF] _, ClipRectangle: PROC[context: Context, x, y, w, h: REAL] _, ExcludeRectangle: PROC[context: Context, x, y, w, h: REAL] _, IntegerClipRectangle: PROC[context: Context, x, y, w, h: INTEGER] _, IntegerExcludeRectangle: PROC[context: Context, x, y, w, h: INTEGER] _, ShowChar: PROC[context: Context, char: CHAR, font: FONT] _, ShowCharacters: PROC[context: Context, characters: REF, font: FONT, start: INT, length: INT] _, CorrectMask: PROC[context: Context] _, CorrectSpace: PROC[context: Context, v: Pair] _, SetCorrectMeasure: PROC[context: Context, v: Pair] _, SetCorrectTolerance: PROC[context: Context, v: Pair] _, Space: PROC[context: Context, x: REAL] _, IntegerSpace: PROC[context: Context, x: INTEGER] _, Correct: PROC[context: Context, body: PROC] _, Reset: PROC[context: Context] _, SetView: PROC[context: Context, box: IntRectangle, halftoneOrigin: IntPair] _, ClipView: PROC[context: Context, box: IntRectangle, exclude: BOOL] _, DrawBitmap: PROC[context: Context, base: LONG POINTER, raster: CARDINAL, area: IntRectangle] _, MaskBits: PROC[context: Context, base: LONG POINTER, raster: CARDINAL, tile: IntRectangle, area: IntRectangle] _, MoveSurfaceRectangle: PROC[context: Context, source: IntRectangle, dest: IntPair] _, TestRectangle: PROC[context: Context, x, y, w, h: REAL] RETURNS[Visibility] _, GetSurfaceBounds: PROC[context: Context] RETURNS[IntRectangle] _, GetViewBounds: PROC[context: Context] RETURNS[IntRectangle] _, SpecialOp: PROC[context: Context, op: ATOM, data: REF] RETURNS[REF] _ ]; RegisterDevice: PROC[class: Class]; END. xImagerPrivate.mesa Last changed by: Doug Wyatt, October 11, 1983 3:47 pm Michael Plass, October 27, 1983 3:29 pm Ê+˜Jšœ™™J™$J™'J™—šÏk œ˜J˜—Jšœœ ˜ Jšœ˜J˜Jšœ œ˜Jšœœ œ˜Jšœœ˜ Jšœ œ˜$Jšœœ˜.Jšœœ˜Jšœ œ˜,Jšœ œ˜*Jšœ œ˜(Jšœœ˜2šœ œ˜*J˜—Jšœœ”˜žJ˜Jšœœœ ˜šœ œœ˜Jšœ œ˜JšÏnœœœ˜+Jšžœœœœ˜5Jšžœœœ˜0Jšžœœœœ˜:Jšžœœœ˜5Jšžœœœœ˜8Jšžœœœ˜3Jšžœœœ˜-Jšž œœœ˜0Jšžœœ(˜5Jšž œœœ˜1Jšžœœœ˜+Jšžœœœ˜*Jšžœœœ˜0Jšžœœ˜Jšžœœ˜ Jšžœœ˜)Jšž œœœ˜6Jšžœœ˜,Jšžœœœ˜9Jšžœœœ ˜.Jšž œœœ ˜5Jšžœœ3œ˜Hšž œœ3œ˜GJšœ œ˜+—šžœœ3œ˜MJšœ œ˜—Jšž œœ#œ˜;Jšžœœ#œ˜EJšž œœœ˜:Jšžœœœ˜DJšžœœ˜)Jšž œœœ˜5Jšžœœœ˜?Jšž œœ%˜4Jšž œœ3œ˜KJšžœœ3œ˜NJšž œœœ˜:Jšžœœœ˜=Jšžœœœ˜DJšžœœœ˜GJšžœœœœ˜;Jš žœœœœ œ œ˜_Jšž œœ˜&Jšž œœ˜0Jšžœœ˜5Jšžœœ˜7Jšžœœœ˜)Jšž œœœ˜3Jšžœœœ˜.J˜Jšžœœ˜ JšžœœA˜NJšžœœ/œ˜EJš ž œœœœ œ˜_Jš žœœœœ œ,˜qJšžœœ:˜TJšž œœœœ˜NJšžœœœ˜AJšž œœœ˜>Jš ž œœœœœœ˜EJ˜J˜—šžœœ˜#J˜—Jšœ˜—…—8Û