DIRECTORY
ImagerColor USING [Color, ColorOperator],
ImagerFont USING [Char, CharSet, Font],
ImagerPath USING [Clipper, PathProc],
ImagerPixelArray USING [PixelArray],
ImagerTransformation USING [Transformation],
Prop USING [PropList],
Rope USING [ROPE],
Vector2 USING [VEC];

Imager: CEDAR DEFINITIONS
~ BEGIN

Context: TYPE ~ REF ContextRep;
ContextRep: TYPE ~ RECORD[
class: Class, -- procedures for the context class
data: REF, -- instance data (class-dependent)
props: Prop.PropList -- instance property list
];

VEC: TYPE ~ Vector2.VEC;
Transformation: TYPE ~ ImagerTransformation.Transformation;
PathProc: TYPE ~ ImagerPath.PathProc;
Clipper: TYPE ~ ImagerPath.Clipper;
PixelArray: TYPE ~ ImagerPixelArray.PixelArray;
Color: TYPE ~ ImagerColor.Color;
ColorOperator: TYPE ~ ImagerColor.ColorOperator;
Char: TYPE ~ ImagerFont.Char;
CharSet: TYPE ~ ImagerFont.CharSet;
Font: TYPE ~ ImagerFont.Font;
ROPE: TYPE ~ Rope.ROPE;

DoSave: PROC[context: Context, action: PROC];
DoSaveAll: PROC[context: Context, action: PROC];
PutProp: PROC[context: Context, key: REF, value: REF];
GetProp: PROC[context: Context, key: REF] RETURNS[value: REF];
RemProp: PROC[context: Context, key: REF];


Error: ERROR[errorCode: ErrorCode];
ErrorCode: TYPE ~ {
Bug, -- detected an internal inconsistency
Unimplemented, -- operation not provided for this context
NotYetImplemented, -- part of the Imager implementation is incomplete
UnknownSpecialColor, -- unrecognized atom for a special Color
GrayParameterOutOfRange -- for SetGray or MakeGray, f<0 or f>1
};
ConcatT: PROC[context: Context, m: Transformation];
metersPerInch: REAL ~ 0.0254;
metersPerPoint: REAL ~ 0.00035146;
metersPerMica: REAL ~ 0.00001;
ScaleT: PROC[context: Context, s: REAL];
Scale2T: PROC[context: Context, s: VEC];
RotateT: PROC[context: Context, a: REAL];
TranslateT: PROC[context: Context, t: VEC];
Move: PROC[context: Context];
Trans: PROC[context: Context];

MaskFill: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];
MaskFillParity: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];
MaskRectangle: PROC[context: Context, x, y, w, h: REAL];
MaskRectangleI: PROC[context: Context, x, y, w, h: INTEGER]
~ INLINE { context.class.MaskRectangleI[context, x, y, w, h] };
Box: TYPE ~ RECORD[xmin, ymin, xmax, ymax: REAL];
MaskBox: PROC[context: Context, box: Box];

StrokeEnd: TYPE ~ {square, butt, round};

StrokeJoint: TYPE ~ {miter, round};

StrokeStyle: TYPE ~ RECORD[end: StrokeEnd, joint: StrokeJoint];

StrokeDashes: TYPE ~ REF StrokeDashesRep;
StrokeDashesRep: TYPE ~ RECORD[begin, repeat, end: DashPattern _ NIL];

DashPattern: TYPE ~ LIST OF DashSpec;
DashSpec: TYPE ~ RECORD[style: StrokeStyle, width, length, stretch: REAL];

SetStrokeWidth: PROC[context: Context, width: REAL];

SetStrokeStyle: PROC[context: Context, style: StrokeStyle];

SetStrokeDashes: PROC[context: Context, dashes: StrokeDashes _ NIL];

MaskStroke: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];
MaskStrokeClosed: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];
MaskVector: PROC[context: Context, p1, p2: VEC];
MaskVectorI: PROC[context: Context, x1, y1, x2, y2: INTEGER]
~ INLINE { context.class.MaskVectorI[context, x1, y1, x2, y2] };

MaskPixel: PROC[context: Context, pa: PixelArray];

MaskBits: PROC[context: Context, 
base: LONG POINTER, wordsPerLine: NAT, 
sMin, fMin, sSize, fSize: NAT, sOffset, fOffset: INTEGER _ 0];


SetPriorityImportant: PROC[context: Context, priorityImportant: BOOL];
SetNoImage: PROC[context: Context, noImage: BOOL];
SetXY: PROC[context: Context, p: VEC];
SetXYI: PROC[context: Context, x, y: INTEGER]
~ INLINE { context.class.SetXYI[context, x, y] };
SetXYRel: PROC[context: Context, v: VEC];
SetXYRelI: PROC[context: Context, x, y: INTEGER]
~ INLINE { context.class.SetXYRelI[context, x, y] };

SetXRel: PROC[context: Context, x: REAL];
SetXRelI: PROC[context: Context, x: INTEGER]
~ INLINE { context.class.SetXYRelI[context, x, 0] };
SetYRel: PROC[context: Context, y: REAL];
SetYRelI: PROC[context: Context, y: INTEGER]
~ INLINE { context.class.SetXYRelI[context, 0, y] };
SetFont: PROC[context: Context, font: Font];

Show: PROC[context: Context, chars: PROC[PROC[Char]], xrel: BOOL _ FALSE];
ShowChar: PROC[context: Context, char: CHAR, 
set: CharSet _ 0];
ShowRope: PROC[context: Context, rope: ROPE, 
start: INT _ 0, len: INT _ INT.LAST, 
set: CharSet _ 0];
ShowText: PROC[context: Context, text: REF READONLY TEXT, 
start: NAT _ 0, len: NAT _ NAT.LAST, 
set: CharSet _ 0];
SetAmplifySpace: PROC[context: Context, amplifySpace: REAL];

StartUnderline: PROC[context: Context];
MaskUnderline: PROC[context: Context, dy, h: REAL];
MaskUnderlineI: PROC[context: Context, dy, h: INTEGER]
~ INLINE { context.class.MaskUnderlineI[context, dy, h] };
CorrectMask: PROC[context: Context];
CorrectSpace: PROC[context: Context, v: VEC];

Space: PROC[context: Context, x: REAL];
SpaceI: PROC[context: Context, x: INTEGER]
~ INLINE { context.class.SpaceI[context, x] };
SetCorrectMeasure: PROC[context: Context, v: VEC];
SetCorrectTolerance: PROC[context: Context, v: VEC];
SetCorrectShrink: PROC[context: Context, correctShrink: REAL];
Correct: PROC[context: Context, action: PROC];

black, white: READONLY Color;

SetColor: PROC[context: Context, color: Color];

SetGray: PROC[context: Context, f: REAL];
SetSampledColor: PROC[context: Context, pa: PixelArray, 
m: Transformation _ NIL, colorOperator: ColorOperator];

SetSampledBlack: PROC[context: Context, pa: PixelArray, 
m: Transformation _ NIL, clear: BOOL _ FALSE];

ClipOutline: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];

ExcludeOutline: PROC[context: Context, pathProc: PathProc, pathData: REF _ NIL];

ClipRectangle: PROC[context: Context, x, y, w, h: REAL];
ClipRectangleI: PROC[context: Context, x, y, w, h: INTEGER]
~ INLINE { context.class.ClipRectangleI[context, x, y, w, h, FALSE] };

ExcludeRectangle: PROC[context: Context, x, y, w, h: REAL];
ExcludeRectangleI: PROC[context: Context, x, y, w, h: INTEGER]
~ INLINE { context.class.ClipRectangleI[context, x, y, w, h, TRUE] };


RealKey: TYPE ~ { -- for SetReal, GetReal
DCScpx, DCScpy,
correctMX, correctMY,
mediumXSize, mediumYSize,
fieldXMin, fieldYMin, fieldXMax, fieldYMax,
strokeWidth,
underlineStart,
amplifySpace,
correctShrink, correctExpand,
correctTX, correctTY
};

IntKey: TYPE ~ { -- for SetInt, GetInt
priorityImportant,
noImage,
strokeStyle,
correctPass
};


SetT: PROC[context: Context, m: Transformation];
SetClipper: PROC[context: Context, clipper: Clipper];
SetReal: PROC[context: Context, key: RealKey, value: REAL];
SetInt: PROC[context: Context, key: IntKey, value: INT];

GetT: PROC[context: Context] RETURNS[Transformation];
GetFont: PROC[context: Context] RETURNS[Font];
GetColor: PROC[context: Context] RETURNS[Color];
GetClipper: PROC[context: Context] RETURNS[Clipper];
GetReal: PROC[context: Context, key: RealKey] RETURNS[REAL];
GetInt: PROC[context: Context, key: IntKey] RETURNS[INT];

GetCP: PROC[context: Context] RETURNS[VEC];
GetCPRounded: PROC[context: Context] RETURNS[VEC];

Class: TYPE ~ REF ClassRep;
ClassRep: TYPE ~ RECORD[
type: ATOM,
SetT: PROC[context: Context, m: Transformation],
SetFont: PROC[context: Context, font: Font],
SetColor: PROC[context: Context, color: Color],
SetClipper: PROC[context: Context, clipper: Clipper],
SetReal: PROC[context: Context, key: RealKey, value: REAL],
SetInt: PROC[context: Context, key: IntKey, value: INT],
GetT: PROC[context: Context] RETURNS[Transformation],
GetFont: PROC[context: Context] RETURNS[Font],
GetColor: PROC[context: Context] RETURNS[Color],
GetClipper: PROC[context: Context] RETURNS[Clipper],
GetReal: PROC[context: Context, key: RealKey] RETURNS[REAL],
GetInt: PROC[context: Context, key: IntKey] RETURNS[INT],
DoSave: PROC[context: Context, action: PROC],
DoSaveAll: PROC[context: Context, action: PROC],
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],
Trans: PROC[context: Context],
SetGray: PROC[context: Context, f: REAL],
SetSampledColor: PROC[context: Context, pa: PixelArray, 
m: Transformation, colorOperator: ColorOperator],
MaskFill: PROC[context: Context, pathProc: PathProc, pathData: REF, parity: BOOL],
MaskStroke: PROC[context: Context, pathProc: PathProc, pathData: REF, closed: BOOL],
MaskRectangle: PROC[context: Context, x, y, w, h: REAL],
MaskRectangleI: PROC[context: Context, x, y, w, h: INTEGER],
MaskVector: PROC[context: Context, p1, p2: VEC],
MaskVectorI: PROC[context: Context, x1, y1, x2, y2: INTEGER],
StartUnderline: PROC[context: Context],
MaskUnderline: PROC[context: Context, dy, h: REAL],
MaskUnderlineI: PROC[context: Context, dy, h: INTEGER],
MaskPixel: PROC[context: Context, pa: PixelArray],
MaskBits: PROC[context: Context, base: LONG POINTER, wordsPerLine: NAT, 
sMin, fMin, sSize, fSize: NAT, sOffset, fOffset: INTEGER],
ClipOutline: PROC[context: Context, pathProc: PathProc, pathData: REF, exclude: BOOL],
ClipRectangle: PROC[context: Context, x, y, w, h: REAL, exclude: BOOL],
ClipRectangleI: PROC[context: Context, x, y, w, h: INTEGER, exclude: BOOL],
SetXY: PROC[context: Context, p: VEC],
SetXYI: PROC[context: Context, x, y: INTEGER],
SetXYRel: PROC[context: Context, v: VEC],
SetXYRelI: PROC[context: Context, x, y: INTEGER],
GetCP: PROC[context: Context, round: BOOL] RETURNS[VEC],
Show: PROC[context: Context, chars: PROC[PROC[Char]], xrel: BOOL],
CorrectMask: PROC[context: Context],
CorrectSpace: PROC[context: Context, v: VEC],
Space: PROC[context: Context, x: REAL],
SpaceI: PROC[context: Context, x: INTEGER],
SetCorrectMeasure: PROC[context: Context, v: VEC],
SetCorrectTolerance: PROC[context: Context, v: VEC],
Correct: PROC[context: Context, action: PROC],
props: Prop.PropList _ NIL
];

END.
öImager.mesa
Copyright c 1984 Xerox Corporation.  All rights reserved.
Michael Plass, February 20, 1984 9:15:15 am PST
Doug Wyatt, November 29, 1984 2:48:07 pm PST

The Imager provides a rich set of facilities for creating two-dimensional images on a variety of devices; images can be specified in a way that is independent of any particular imaging device.

Types

Imager variables
Call the "action" procedure, then restore imager variables to their state prior to the call.
DoSave preserves changes to the "persistent" imager variables, cp and correctMeasure.
DoSaveAll saves and restores all imager variables.

Puts a key-value pair on the context's property list.

Looks for key on the context's property list and returns the corresponding value.
Uses REF equality to compare keys.  Returns NIL if key is not found.

Looks for key on the context's property list and removes the key-value pair.
Uses REF equality to compare keys.  No effect if key is not found.

Errors

Transformations

Premultiplies the current transformation by m.


These are common scale factors for ScaleT.

Scales the current transformation by s.
Equivalent to ConcatT[context, ImagerTransformation.Scale[s]].

Equivalent to ConcatT[context, ImagerTransformation.Scale2[s]].

Equivalent to ConcatT[context, ImagerTransformation.Rotate[a]].
Angle a is in degrees counterclockwise.

Equivalent to ConcatT[context, ImagerTransformation.Translate[t]].


Translates the origin to the current position.

Translates the origin to the grid point nearest the current position.


Masks
Fills the region outlined by the path with the current color.
Points with nonzero winding number are "inside" the path.

Like MaskFill, but only points with odd winding number are "inside" the path.

Fills a rectangular area with the given origin, width and height.

Fills a rectangular area with the given boundaries.
A convenience for former users of Graphics.DrawBox.

square: Square off the end after extending the stroke by half its width
butt: Square off the end flush with the endpoint
round: Round the end with a semicircular cap
miter: Extend sides until they meet (acute angles make long, sharp corners)
round: Put a circle at each joint
Establishes the width for following strokes.
Establishes endpoint and joint treatment for following strokes.
Establishes a dash pattern for following strokes.
The stroke is first broadened to have uniform width strokeWidth, fitted with the endpoints specified by strokeStyle, then transformed by the current transformation T, and used as a mask to alter the image.

Like MaskStroke, except that each trajectory is closed if necessary with a straight line back to its starting point.

MaskStroke for a single straight line segment.

Uses a pixel array as a mask; must have one bit per pixel.
While priorityImportant=TRUE, the order of mask operations is preserved.

While noImage=TRUE, mask operations do not affect the output.


Text

Sets the current position.

Adds a relative displacement to the current position.
Equivalent to SetXYRel[context, x, 0]

Equivalent to SetXYRel[context, 0, y]


Establishes the font for following Shows.


Remembers the starting x position for an underline.

Masks a rectangular underline from the StartUnderline point to the current position.
The underline's top is dy below the current position; its height is h.
Example: StartUnderline[ctx]; ShowRope[ctx, "underlined"]; MaskUnderline[ctx, 4, 1];

Equivalent to { SetXRel[ctx, x]; CorrectSpace[ctx, [x, 0]] }.



Color

Sets the current color.
Equivalent to SetColor[context, ImagerColor.MakeGray[f]]

These operations set a sampled color with a transformation of Concat[m, T].


Clipping

Private details
SetFont: PROC[context: Context, font: Font]; -- declared above
SetColor: PROC[context: Context, color: Color]; -- declared above

�Êÿ˜Icodeš
œ™šœ
Ïm
œ.™9K™/Kš
œ,™,K™—K™À
K˜š
Ïk	˜	Kšœžœ˜)Kšœžœ˜'Kšœžœ˜%Kšœžœ˜$Kšœžœ˜,Kšœžœ˜Kšœžœžœ˜Kšœžœžœ˜—K˜Kšœžœ
ž˜Kšœž˜K™™K˜Kšœ	žœžœ˜šœžœžœ
˜KšœÏc#˜1KšœžœŸ"˜-KšœŸ˜.Kš
œ˜K˜—Kšžœžœžœ
˜Kšœžœ'˜;Kšœ
žœ˜%Kšœ	žœ˜#Kšœžœ˜/Kšœžœ˜ Kšœžœ˜0Kšœžœ˜Kšœ	žœ˜#Kšœžœ˜Kšžœžœžœ
˜—K™™K˜KšÏnœžœžœ˜-š 	œžœžœ˜0K™\K™UK™2K™—š œžœžœ	žœ˜6K™5K™—š
 œžœžœžœžœ˜>Kš
œQ™QKšœžœ$žœ™DK™—š œžœžœ˜*Kš
œL™LKšœžœ:™BK˜——K™™K˜Kšœžœ˜#šœžœ˜KšœŸ%˜*KšœŸ*˜9KšœŸ2˜EKšœŸ(˜=KšœŸ&˜>K˜——K™š
œ™K™š œžœ&˜3Kš
œ.™.K™—K™Kšœžœ
˜Kšœžœ˜"šœžœ˜K™*K™—š œžœžœ˜(K™'Kš
œ>™>K™—š œžœžœ˜(Kš
œ?™?K™—š œžœžœ˜)Kš
œ?™?Kš
œ'™'K™—š 
œžœžœ˜+Kš
œB™BK™—K™š œžœ˜Kš
œ.™.K™—š œžœ˜Kš
œE™EK™——K™š
œ™K˜š œžœ1žœžœ˜JKš
œ=™=Kš
œ9™9K™—š œžœ1žœžœ˜PKš
œM™MK™—Kš 
œžœžœ˜8š œžœžœ
˜;Kšœžœ7˜?K™AK™—Kšœžœžœžœ˜1š œžœ˜*K™3K™3K™—K˜šœžœ˜(Kš
œG™GKš
œ0™0Kš
œ,™,K˜—šœ
žœ˜#Kš
œK™KKš
œ!™!K˜—Kšœ
žœžœ%˜?K˜Kšœžœžœ˜)Kšœžœžœ#žœ˜FK˜Kšœ
žœžœ
žœ
˜%Kšœ
žœžœ-žœ˜JK˜š œžœžœ˜4K™,K˜—š œžœ'˜;K™?K˜—š œžœ*žœ˜DK™1K˜—š 
œžœ1žœžœ˜LKš
œÍ
™Í
K™—š œžœ1žœžœ˜RKš
œt™tK™—Kš 
œžœžœ˜0š œžœ#žœ
˜<Kšœžœ8˜@K™.K™—K˜š 	œžœ#˜2Kš
œ:™:K˜—š œžœžœ
žœžœžœžœ˜ˆ
K˜—K˜š œžœ&žœ˜FKšœžœ,™HK™—š 
œžœžœ˜2Kšœžœ+™=K™——K™™K™Kš œžœžœ˜&š œžœžœ
˜-Kšœžœ)˜1K™K™—Kš œžœžœ˜)š 	œžœžœ
˜0Kšœžœ,˜4K™5K˜—Kš œžœžœ˜)š œžœžœ
˜,Kšœžœ,˜4K™%K™—Kš œžœžœ˜)š œžœžœ
˜,Kšœžœ,˜4K™%K™—K™š œžœ˜,K™)K˜—Kš œžœžœ
žœžœžœ˜JKš œžœžœ˜@Kš œžœžœ
žœžœžœ
žœ˜fš œžœžœ
žœ
žœ
žœžœžœ
žœ˜sK™—š œžœ!žœ˜<K˜—K™š œžœ˜'K™3K™—Kš 
œžœžœ˜3š œžœžœ
˜6Kšœžœ2˜:K™TK™FK™T—K™Kš œžœ˜$š œžœžœ˜-K˜—Kš œžœžœ˜'š œžœžœ
˜*Kšœžœ&˜.K™=K™—Kš œžœžœ˜2Kš œžœžœ˜4š œžœ"žœ˜>K™—š œžœžœ˜.K˜——K™š
œ™K™šœžœ˜K˜—š œžœ!˜/Kš
œ™K˜—š œžœžœ˜)Kš
œ8™8K™—š œžœ8žœ ˜pK˜—š
 œžœ8žœ	žœžœ˜gKš
œK™K—K™—K™™K˜š œžœ1žœžœ˜MK˜—š œžœ1žœžœ˜PK˜—Kš 
œžœžœ˜8š œ
žœžœ
˜;Kšœžœ5žœ˜FK˜—Kš œžœžœ˜;š œ
žœžœ
˜>Kšœžœ5žœ˜EK˜——K™™K˜šœ	žœŸ˜)Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ+˜+Kš
œ˜Kš
œ˜Kš
œ
˜
Kš
œ˜Kš
œ˜Kš
œ˜K˜—šœžœŸ˜&Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜K˜—K˜Kš œžœ&˜0Kš œžœ1™>Kš œžœ3™AKš 
œžœ%˜5Kš œžœ(žœ˜;Kš œžœ'žœ˜8K˜Kš œžœžœ˜5Kš œžœžœ˜.Kš œžœžœ˜0Kš 
œžœžœ
˜4Kš œžœ!žœ
žœ˜<Kš œžœ žœ
žœ˜9K˜Kš œžœžœ
žœ˜+Kš œžœžœ
žœ˜2K˜Kšœžœžœ
˜šœ
žœžœ
˜Kšœžœ
˜Kš œžœ&˜0Kš œžœ˜,Kš œžœ!˜/Kš 
œžœ%˜5Kš œžœ(žœ˜;Kš œžœ'žœ˜8Kš œžœžœ˜5Kš œžœžœ˜.Kš œžœžœ˜0Kš 
œžœžœ
˜4Kš œžœ!žœ
žœ˜<Kš œžœ žœ
žœ˜9Kš œžœžœ˜-Kš 	œžœžœ˜0Kš œžœ&˜3Kš œžœžœ˜(Kš œžœžœ˜)Kš 
œžœžœ˜+Kš œžœ˜Kš œžœ˜Kš œžœžœ˜)Kš œžœU˜jKš œžœ1žœ
žœ˜RKš 
œžœ1žœ
žœ˜TKš 
œžœžœ˜8Kš œžœžœ˜<Kš 
œžœžœ˜0Kš œžœ#žœ˜=Kš œžœ˜'Kš 
œžœžœ˜3Kš œžœžœ˜7Kš 	œžœ#˜2Kš œžœžœ
žœžœžœžœ˜ƒ
Kš œžœ1žœžœ˜VKš 
œžœžœžœ˜GKš œžœžœžœ˜KKš œžœžœ˜&Kš œžœžœ˜.Kš œžœžœ˜)Kš 	œžœžœ˜1Kš
 œžœžœžœ
žœ˜8Kš
 œžœžœ
žœžœ˜BKš œžœ˜$Kš œžœžœ˜-Kš œžœžœ˜'Kš œžœžœ˜+Kš œžœžœ˜2Kš œžœžœ˜4Kš œžœžœ˜.Kšœž˜K˜—K™—K˜Kšžœ
˜—…—&¦D›