DIRECTORY
ImagerBox USING [Box, Rectangle],
ImagerColor USING [Color, ColorOperator, ConstantColor, SampledColor, Structure, SpecialColor],
ImagerError USING [ErrorDesc],
ImagerFont USING [Font, XChar, XStringProc],
ImagerPath USING [Outline, PathProc, Trajectory],
ImagerPixel USING [PixelMap],
ImagerPixelArray USING [PixelArray],
ImagerSample USING [SampleMap],
ImagerTransformation USING [ScanMode, Transformation],
Prop USING [PropList],
Rope USING [ROPE, XROPE],
SF USING [Vec, zeroVec],
Vector2 USING [VEC];

Imager: CEDAR DEFINITIONS
~ BEGIN

VEC: TYPE ~ Vector2.VEC; -- RECORD [x, y: REAL]
zeroVEC: VEC ~ [0.0, 0.0];


Rectangle: TYPE ~ ImagerBox.Rectangle; -- RECORD [x, y, w, h: REAL]
Transformation: TYPE ~ ImagerTransformation.Transformation;

PathProc: TYPE ~ ImagerPath.PathProc;
Trajectory: TYPE ~ ImagerPath.Trajectory;
Outline: TYPE ~ ImagerPath.Outline;

PixelArray: TYPE ~ ImagerPixelArray.PixelArray;

SampleMap: TYPE ~ ImagerSample.SampleMap;

PixelMap: TYPE ~ ImagerPixel.PixelMap;

ScanMode: TYPE ~ ImagerTransformation.ScanMode;
defaultScanMode: ScanMode ~ [slow: down, fast: right];

Color: TYPE ~ ImagerColor.Color;
ConstantColor: TYPE ~ ImagerColor.ConstantColor;
SampledColor: TYPE ~ ImagerColor.SampledColor;
SpecialColor: TYPE ~ ImagerColor.SpecialColor;
Structure: TYPE ~ ImagerColor.Structure;
ColorOperator: TYPE ~ ImagerColor.ColorOperator;

Font: TYPE ~ ImagerFont.Font;
XChar: TYPE ~ ImagerFont.XChar;
XStringProc: TYPE ~ ImagerFont.XStringProc;

ROPE: TYPE ~ Rope.ROPE;
XROPE: TYPE ~ Rope.XROPE;
Context: TYPE ~ REF ContextRep;
ContextRep: TYPE ~ RECORD [
class: REF ClassRep, -- operations for the context class
state: REF StateRep, -- context state, if standard representation
data: REF, -- instance data (class-dependent type)
propList: Prop.PropList Ź NIL -- instance property list
];

ClassRep: TYPE; -- ImagerPrivate.ClassRep
StateRep: TYPE; -- ImagerState.StateRep

Error: VAR ERROR [error: ImagerError.ErrorDesc];

Warning: VAR SIGNAL [error: ImagerError.ErrorDesc];
SetWarn: PROC [context: Context, warn: BOOL];
GetClass: PROC [context: Context] RETURNS [ATOM];


PutProp: PROC [context: Context, key: REF, val: REF];
GetProp: PROC [context: Context, key: REF] RETURNS [val: REF];

DoSave: PROC [context: Context, action: PROC];
DoSaveAll: PROC [context: Context, action: PROC];
metersPerInch: REAL ~ 0.0254;
metersPerPoint: REAL ~ 0.0003514598;
metersPerMica: REAL ~ 0.00001;
pointsPerInch: REAL ~ 72.27;
pointsPerMica: REAL ~ 0.028452756;
micasPerInch: REAL ~ 2540.0;
micasPerPoint: REAL ~ 35.14598;
inchesPerPoint: REAL ~ 0.013837;
inchesPerMica: REAL ~ 0.00039370079;
ConcatT: PROC [context: Context, m: Transformation];
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];

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];

SetXRel: PROC [context: Context, x: REAL];
SetXRelI: PROC [context: Context, x: INTEGER];
SetYRel: PROC [context: Context, y: REAL];
SetYRelI: PROC [context: Context, y: INTEGER];
FindFontScaled: PROC [name: ROPE, s: REAL] RETURNS [Font];

SetFont: PROC [context: Context, font: Font];

SetAmplifySpace: PROC [context: Context, amplifySpace: REAL];


Show: PROC [context: Context, string: XStringProc, xrel: BOOL Ź FALSE];

ShowAndFixedXRel: PROC [context: Context, string: XStringProc, x: REAL];

ShowBackward: PROC [context: Context, string: XStringProc];

ShowChar: PROC [context: Context, char: CHAR];
ShowXChar: PROC [context: Context, char: XChar];
ShowXRope: PROC [context: Context, rope: XROPE, 
start: INT Ź 0, len: INT Ź INT.LAST, xrel: BOOL Ź FALSE];
ShowRope: PROC [context: Context, rope: ROPE, 
start: INT Ź 0, len: INT Ź INT.LAST, xrel: BOOL Ź FALSE];
ShowText: PROC [context: Context, text: REF READONLY TEXT, 
start: NAT Ź 0, len: NAT Ź NAT.LAST, xrel: BOOL Ź FALSE];
StartUnderline: PROC [context: Context];
MaskUnderline: PROC [context: Context, dy, h: REAL];
MaskUnderlineI: PROC [context: Context, dy, h: INTEGER];

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];
SetCorrectShrink: PROC [context: Context, correctShrink: REAL];
Correct: PROC [context: Context, action: PROC];
DontCorrect: PROC [context: Context, action: PROC, saveCP: BOOL Ź FALSE];
SetColor: PROC [context: Context, color: Color];


MakeGray: PROC [f: REAL] RETURNS [ConstantColor];
black: READONLY ConstantColor; -- MakeGray[1]
white: READONLY ConstantColor; -- MakeGray[0]

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];

DrawSampledColor: PROC [context: Context, pa: PixelArray, colorOperator: ColorOperator, 
m: Transformation Ź NIL, position: VEC Ź zeroVEC];
DrawPixels: PROC [context: Context, pixelMap: PixelMap, colorOperator: ColorOperator, referencePoint: SF.Vec Ź SF.zeroVec, scanMode: ScanMode Ź defaultScanMode,
position: VEC Ź zeroVEC];
DrawBitmap: PROC [context: Context, bitmap: SampleMap, 
referencePoint: SF.Vec Ź SF.zeroVec, scanMode: ScanMode Ź defaultScanMode,
position: VEC Ź zeroVEC];
MaskFill: PROC [context: Context, path: PathProc, oddWrap: BOOL Ź FALSE];
MaskFillTrajectory: PROC [context: Context, trajectory: Trajectory, oddWrap: BOOL Ź FALSE];
MaskFillOutline: PROC [context: Context, outline: Outline];
MaskRectangle: PROC [context: Context, r: Rectangle];
MaskRectangleI: PROC [context: Context, x, y, w, h: INTEGER];
Box: TYPE ~ ImagerBox.Box; -- RECORD [xmin, ymin, xmax, ymax: REAL]

MaskBox: PROC [context: Context, box: Box];

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

StrokeEnd: TYPE ~ MACHINE DEPENDENT { square, butt, round, (15) };

SetStrokeEnd: PROC [context: Context, strokeEnd: StrokeEnd];

StrokeJoint: TYPE ~ MACHINE DEPENDENT { miter, bevel, round, (15) };

SetStrokeJoint: PROC [context: Context, strokeJoint: StrokeJoint];

MaskStroke: PROC [context: Context, path: PathProc, closed: BOOL Ź FALSE];
MaskStrokeTrajectory: PROC [context: Context, trajectory: Trajectory, closed: BOOL Ź FALSE];
MaskVector: PROC [context: Context, p1, p2: VEC];
MaskVectorI: PROC [context: Context, x1, y1, x2, y2: INTEGER];

MaskDashedStroke: PROC [context: Context, path: PathProc, 
patternLen: NAT, pattern: PROC [NAT] RETURNS [REAL], offset, length: REAL];
MaskDashedStrokeTrajectory: PROC [context: Context, trajectory: Trajectory, 
patternLen: NAT, pattern: PROC [NAT] RETURNS [REAL], offset, length: REAL];
MaskPixel: PROC [context: Context, pa: PixelArray];

MaskBitmap: PROC [context: Context, bitmap: SampleMap, referencePoint: SF.Vec Ź SF.zeroVec,
scanMode: ScanMode Ź defaultScanMode, position: VEC Ź zeroVEC];


SetPriorityImportant: PROC [context: Context, priorityImportant: BOOL];
SetNoImage: PROC [context: Context, noImage: BOOL];

Clip: PROC [context: Context, path: PathProc, oddWrap, exclude: BOOL Ź FALSE];

ClipOutline: PROC [context: Context, outline: Outline, exclude: BOOL Ź FALSE];

ClipRectangle: PROC [context: Context, r: Rectangle, exclude: BOOL Ź FALSE];
ClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL Ź FALSE];

DoIfVisible: PROC [context: Context, r: Rectangle, action: PROC];
DoWithBuffer: PROC [context: Context, action: PROC, x, y, w, h: INTEGER, backgroundColor: Color Ź NIL];
Object: TYPE ~ REF ObjectRep;
ObjectRep: TYPE ~ RECORD [draw: PROC [self: Object, context: Context], clip: Rectangle, data: REF];

DrawObject: PROC [context: Context, object: Object, position: VEC Ź zeroVEC, interactive: BOOL Ź FALSE];


END.
   "  
Imager.mesa 
Copyright Ó 1984, 1985, 1986, 1987, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, October 25, 1991 1:13 pm PDT
Doug Wyatt, January 19, 1987 5:55:40 pm PST

Imager is the standard Cedar interface for creating two-dimensional images; it allows images to be specified in a way that is independent of the imaging device.  Imager operations can be directed to various displays and printers, or to an Interpress master.

Contexts and Imager State
The Warning signal may always be resumed; clients may disable and enable the occurence of Warning signals by using SetWarn.  The warn/no warn state is subject to DoSave, and warnings are initially disabled.


Returns an ATOM that identifies the context class.
Operations on context.propList; propList is saved and restored by DoSave and DoSaveAll.

These save imager variables, call the action procedure, then restore imager variables.
DoSave restores all but the current position and correctMeasure.
DoSaveAll restores everything.

Transformations and Current Position
Handy conversion factors.


Premultiplies the current transformation by m.

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.

Sets the current position.

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

Equivalent to SetXYRel[context, 0, y]

Text and Spacing Correction
Equivalent to ImagerFont.FindScaled[name, s].

Sets the font for subsequent Show operations.
Sets the scale factor for widths of `amplified' characters.
Shows a string of characters in the current font, starting at the current position.
If xrel~TRUE, every other char means SetXRel[context, char.code-128].
Does SetXRel[context, x] between characters.
Shows the string, reversing the sense of the character escapements.
Shows an 8-bit character (in Character Set 0).

Shows a 16-bit Xerox Character Code.

Shows extended characters from an XROPE; does not use Xerox String Encoding

Shows characters from a ROPE, using the Xerox String Encoding.

Shows characters from a REF TEXT, using the Xerox String Encoding.


Remembers the starting x position for an underline.

Draws an 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, 3, 1];

Note "correction space" opportunities for Correct; see Correct, below.
Usually, font characters call these implicitly within Show.
Use Space rather than SetXRel to make correctable spaces inside Correct.
Equivalent to { SetXRel[ctx, x]; CorrectSpace[ctx, [x, 0]] }.

Sets the expected line measure for subsequent Correct operations.

Sets the line measure tolerance for subsequent Correct operations.

Sets the allowable fraction of space shrink for subsequent Correct operations.


Ensures reasonable spacing of text (or other masks) even if the imager approximates fonts.
Like DoSave[context, action], but adjusts "correction space" if necessary to ensure that the net change in current position is within correctTolerance of correctMeasure.
Note that Correct may (or may not) invoke action twice.
See the Interpress Standard, section 4.10, and the Introduction to Interpress, section 10.

Disables correction, calls action, then restores correction state.
If saveCP~TRUE, also saves and restores current position.
For relevant examples, see the Introduction to Interpress, section 10.6.
Color and Pixel Arrays
Sets the current color.
Returns a constant gray; f is the fraction of absorptance, from 0 (white) to 1 (black).

Equivalent to SetColor[context, MakeGray[f]]

Equivalent to SetColor[context, MakeSampledColor[pa, Concat[m, T], colorOperator].
Better than direct use of MakeSampledColor, since you don't need to know T.

Equivalent to SetColor[context, MakeSampledBlack[pa, Concat[m, T], clear].
Better than direct use of MakeSampledBlack, since you don't need to know T.

Convenience procedure to draw a sampled image from a PixelArray.  The contents of the PixelArray are displayed through a rectangular mask.
m is normally a Scale for sizing the image, but may be more general.
position may be used to position the image in client coordinates.

Convenience procedure to draw a sampled image from a mutable buffer without first having to construct a PixelArray.  The contents of the PixelMap are displayed with referencePoint in the PixelMap at the specified position in client coordinates, and the orientation in accordance with scanMode.

Convenience procedure to draw a bitmap from a mutable buffer without first having to construct a PixelArray.  The contents of the bitmap are displayed with referencePoint in the bitmap at the specified position in client coordinates, and the orientation in accordance with scanMode.  One bits produce black, zero bits produce white.

Masks and Clipping
Fills with the current color the interior of the region outlined by the specified path.
Closes each trajectory in the path with a straight line, if necessary.
If oddWrap~FALSE, the mask includes all points with nonzero winding number.
If oddWrap~TRUE, the mask includes all points with odd winding number.

Fills the region described by a Trajectory.

Fills the region described by an Outline.

Fills the rectangle [x, y], [x+w, y], [x+w, y+h], [x, y+h].

Fills the rectangle [xmin, ymin], [xmax, ymin], [xmax, ymax], [xmin, ymax].
A convenience for former users of Graphics.DrawBox.

Establishes the width for subsequent strokes.
square: square off each end after extending the stroke by half strokeWidth
butt: square off each end flush with the endpoint
round: round each end with a semicircular cap of strokeWidth diameter
Establishes the endpoint style for subsequent strokes.
miter: extend segment sides until they meet (acute angles make long, sharp corners)
bevel: cut corner with a line segment
round: join segments in a circle of strokeWidth diameter
Establishes the joint style for subsequent strokes.
Fills with the current color a stroke whose centerline is the specified path.
The current strokeWidth and strokeJoint determine the stroke's width and joint style.
If closed~FALSE, the current strokeEnd determines the stroke's endpoint style.
If closed~TRUE, each trajectory is closed, if necessary, with a straight line.

Fills a stroke along a trajectory.

Fills a stroke along the line joining p1 and p2.


Uses a pixel array as a mask; pa must have one bit per pixel.
The referencePoint of the SampleMap (which must have one bit per sample) is placed at the specified position in client coordinates.  The ScanMode controls the orientation of the bitmap with respect to the client coordinate system.
If priorityImportant~TRUE, subsequent Mask operations will retain correct priority order.

If noImage~TRUE, subsequent Mask operations will not change the output.

Clips subsequent masks to the interior of a region described (as for MaskFill) by a path.
If exclude~TRUE, clips to the exterior of the region instead of the interior.
This region is itself clipped by any clipping region previously in force.
Clips to an outline.
Clips to the rectangle [x, y], [x+w, y], [x+w, y+h], [x, y+h].
Other Utilities
Calls action if the rectangle specified by r might be visible.

Equivalent to clipping to the given rectangle [x, y, w, h] and then calling action, all under a DoSaveAll. Will buffer the output where possible.  If backgroundColor#NIL, the rectangle will be filled with the color before action is called.
Image Objects

An object represents a picture that is expected to be drawn repeatedly.  The draw proc should execute precisely the same sequence of Imager calls every time it is called.  The rendering of the object is clipped to the given rectangle.
The semantics are to execute TranslateT[context, position]; object.draw[object, context] under a DoSaveAll, i.e., the object is drawn with its origin at the specified position.
If interactive, certain implementations may cache partial results to speed subsequent renderings, and may make some approximations to the image to make this more feasible (such as moving the origin to the nearest grid point and altering the phase of dither patterns).  Use this when the object is expected to be drawn many times with only the translation being different.
Ęç  (cedarcode) styleNewlineDelimiter
 codeK
ĎeITK+K++K KK Ďk		K
!KN_KK,K!1KK$KK6KKKKK KĐblK KĎc/	K K K C';K K
%K)	#K /K )K 
&K K
!/66K K K0K.K.K(0K KK+K KKheadK	K #8K ,AK '2K 7KK K
 )K
 'K Ďn 0K KĄ 3Ą-JÎÎJ K Ą1K#2K K KĄ5
Ą>KWWK K KĄ.Ą	1KVK@KK $$K
K$KK	K"K
KK $KK K Ą'4K..K Ą)K'K>>K Ą)K??K Ą*K??K''K Ą
,KBBK K ĄK..K ĄKEEK K KĄ'Ą/KK KĄ*Ą	2K5K KĄ*Ą.K%K KĄ*Ą.K%K 
Ą:--K K Ą -K--K Ą"=K;;K K Ą/GKSK9EK Ą,HK,,K Ą);KCK Ą.K.K Ą	!0K$K Ą	
jK"$KK Ą
hK">K Ą
uK"BK K Ą(K3K KĄ4Ą8KIKFKTK K KĄ%Ą.KFFK;K K KĄ(Ą,KHK=K K Ą3KAAK Ą5KBBK Ą#?KNNK K Ą/KZKŠŠK77KZK 
Ą
IKBBK
+9KHĄ"0KK K Ą1KWK K -K -K Ą*K,,K K Ą9 qKRRKKKK 
Ą9	hKJJKKKK K ĄWKKDDKAAK 
Ą
V:şKĽĽK 
Ą
8:KĚĚK Ą-IKWWKFK;KK7FK Ą5[K+K Ą&;K)K KĄ"5Ą =K;K  (CK Ą+KKKK3K K Ą!;K-K 	BKJJK11KEEK Ą*<K6K 	DKSSK%%K88K Ą.BK3K Ą
,JKMMKUUK
?NK
@NK Ą4\K""K KĄ
1Ą$>K00K K Ą1K Ą9K K Ą	$3K==K 
Ą
7:KććK K Ą'GK@YK Ą
3K8GK K Ą6NKYYK>MKIK Ą/NKK KĄ+L
Ą TK>K Ą*AK>>K 
ĄgKŚFďK K	:cKęK 
Ą
.hK°°KóóK K K       Ok  