ImagerPrivate.mesa
Last changed by:
Doug Wyatt, November 23, 1983 1:51 pm
Michael Plass, February 20, 1984 9:58:02 am PST
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.