DIRECTORY Imager USING [Context, FONT], ImagerBasic USING [Color, IntPair, IntRectangle, Pair, PathMapType, PixelArray, StrokeEnd, Transformation, Visibility]; 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] _, ISet: PROC[context: Context, n: Name, x: REF] _, SetSampledColor: PROC[context: Context, pa: PixelArray, pixelT: Transformation, colorOperator: ATOM] _, SetSampledBlack: PROC[context: Context, pa: PixelArray, pixelT: Transformation, transparent: BOOLEAN] _, ISetReal: PROC[context: Context, n: Name, x: REAL] _, 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] _, SetViewOrigin: PROC[context: Context, viewOrigin: IntPair] _, GetViewOrigin: PROC[context: Context] RETURNS[viewOrigin: IntPair] _, SetViewBox: PROC[context: Context, viewBox: IntRectangle] _, GetViewBox: PROC[context: Context] RETURNS[viewBox: IntRectangle] _, ClipView: PROC[context: Context, clipBox: IntRectangle, exclude: BOOL] _, 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] _, SpecialOp: PROC[context: Context, op: ATOM, data: REF] RETURNS[REF] _ ]; RegisterDevice: PROC[class: Class]; END. ‚ImagerPrivate.mesa Last changed by: Doug Wyatt, November 23, 1983 1:51 pm Michael Plass, February 20, 1984 9:58:02 am PST ʘJšœ™™J™%J™/J™—šÏk ˜ Jšœœ œ˜Jšœ œf˜wJ˜—Jšœœ ˜ Jšœ˜J˜Jšœ œ˜Jšœœ œ˜Jšœœ˜ Jšœ œ˜$Jšœœ˜.Jšœœ˜Jšœ œ˜,Jšœ œ˜*Jšœ œ˜(Jšœœ˜2šœ œ˜*J˜—Jšœœ”˜žJ˜Jšœœœ ˜šœ œœ˜Jšœ œ˜JšÏnœœœ˜+Jšžœœœ˜0JšžœœJœ˜gJšžœœHœ˜hJšžœœœ˜5Jšžœœœ˜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šž œœœ˜EJšž œœ,˜