DIRECTORY Atom USING [PropList], ImagerColorDefs USING [Color, ColorOperator, ConstantColor, SampledColor], ImagerFont USING [Font, XChar, XStringProc], ImagerPath USING [Outline, PathProc, Trajectory], ImagerPixelArrayDefs USING [PixelArray], ImagerTransformation USING [Rectangle, Transformation], Rope USING [ROPE], Vector2 USING [VEC]; Imager: CEDAR DEFINITIONS ~ BEGIN VEC: TYPE ~ Vector2.VEC; -- RECORD [x, y: REAL] Rectangle: TYPE ~ ImagerTransformation.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 ~ ImagerPixelArrayDefs.PixelArray; Color: TYPE ~ ImagerColorDefs.Color; ConstantColor: TYPE ~ ImagerColorDefs.ConstantColor; SampledColor: TYPE ~ ImagerColorDefs.SampledColor; ColorOperator: TYPE ~ ImagerColorDefs.ColorOperator; Font: TYPE ~ ImagerFont.Font; XChar: TYPE ~ ImagerFont.XChar; XStringProc: TYPE ~ ImagerFont.XStringProc; ROPE: TYPE ~ Rope.ROPE; 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: Atom.PropList _ NIL -- instance property list ]; ClassRep: TYPE; -- ImagerPrivate.ClassRep StateRep: TYPE; -- ImagerState.StateRep Error: ERROR [error: ErrorDesc]; ErrorDesc: TYPE ~ RECORD [code: ATOM, explanation: ROPE]; 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]; SetFont: PROC [context: Context, font: Font]; SetAmplifySpace: PROC [context: Context, amplifySpace: REAL]; Show: PROC [context: Context, string: XStringProc, xrel: BOOL _ FALSE]; ShowChar: PROC [context: Context, char: CHAR]; ShowXChar: PROC [context: Context, char: XChar]; 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]; MaskFill: PROC [context: Context, path: PathProc, parity: BOOL _ FALSE]; MaskFillTrajectory: PROC [context: Context, trajectory: Trajectory, parity: BOOL _ FALSE]; MaskFillOutline: PROC [context: Context, outline: Outline, parity: BOOL _ FALSE]; MaskRectangle: PROC [context: Context, r: Rectangle]; MaskRectangleI: PROC [context: Context, x, y, w, h: INTEGER]; Box: TYPE ~ RECORD [xmin, ymin, xmax, ymax: REAL]; MaskBox: PROC [context: Context, box: Box]; SetStrokeWidth: PROC [context: Context, strokeWidth: REAL]; StrokeEnd: TYPE ~ {square, butt, round}; SetStrokeEnd: PROC [context: Context, strokeEnd: StrokeEnd]; StrokeJoint: TYPE ~ {mitered, round}; 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]; MaskPixel: PROC [context: Context, pa: PixelArray]; MaskBits: PROC [context: Context, base: LONG POINTER, wordsPerLine: NAT, sMin, fMin, sSize, fSize: NAT, tx, ty: INTEGER _ 0]; SetPriorityImportant: PROC [context: Context, priorityImportant: BOOL]; SetNoImage: PROC [context: Context, noImage: BOOL]; Clip: PROC [context: Context, path: PathProc, parity, exclude: BOOL _ FALSE]; ClipOutline: PROC [context: Context, outline: Outline, parity, exclude: BOOL _ FALSE]; ClipRectangle: PROC [context: Context, r: Rectangle, exclude: BOOL _ FALSE]; ClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL _ FALSE]; END. @Imager.mesa Copyright c 1984, 1985 by Xerox Corporation. All rights reserved. Michael Plass, February 20, 1984 9:15:15 am PST Doug Wyatt, April 15, 1985 1:42:35 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 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 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]. Shows an 8-bit character (in Character Set 0). Shows a 16-bit Xerox Character Code. 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. 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 parity~FALSE, the mask includes all points with nonzero winding number. If parity~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. mitered: extend segment sides until they meet (acute angles make long, sharp corners) 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. 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]. Κ ς˜codešœ ™ Kšœ Οmœ7™BK™/Kšœ)™)—K™K™K™šΟk ˜ Kšœžœ ˜Kšœžœ5˜JKšœ žœ˜,Kšœ žœ!˜1Kšœžœ˜(Kšœžœ˜7Kšœžœžœ˜Kšœžœžœ˜—K˜KšΠblœžœž ˜šœž˜K˜š žœžœ žœΟcžœ Πck ˜/K˜—Kš œ žœ# žœ  ‘ ˜Nšœžœ'˜;K˜—Kšœ žœ˜%Kšœ žœ˜)šœ žœ˜#K˜—šœ žœ#˜3K˜—Kšœžœ˜$Kšœžœ!˜4Kšœžœ ˜2šœžœ!˜4K˜—Kšœžœ˜Kšœžœ˜šœ žœ˜+K˜—Kšžœžœžœ˜—head™Kšœ žœžœ ˜šœ žœžœ˜Kšœžœ  #˜8Kšœžœ  ,˜AKšœžœ '˜2Kšœžœ ˜7Kšœ˜K˜—Kšœ žœ ˜)Kšœ žœ ˜'K˜Kšœžœ˜ š œ žœžœžœžœ˜9J™—K™šΟnœžœžœžœ˜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˜š’œžœ/žœžœ˜GK™SKšœžœ9™EK˜—š’œžœžœ˜.K™.K™—š’ œžœ!˜0K™$K™—š’œžœžœ žœ žœžœžœžœžœ˜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™——šœ™š’œžœ,žœžœ˜HKšœW™WK™FKšœ žœ;™JKšœ žœ7™EK™—š’œžœ4žœžœ˜ZK™+K™—š’œžœ.žœžœ˜QK™)K™—Kš’ œžœ"˜5š’œžœ žœ˜=K™;K™—šœžœžœžœ˜2K˜—š’œžœ˜+KšœK™KK™3K™—K˜š’œžœ!žœ˜;K™-K˜—šœ žœ˜(KšœJ™JKšœ1™1KšœE™EK˜—š’ œžœ*˜Kšœ0™0K™—K˜š’ œžœ$˜3Kšœ=™=K˜—š’œžœžœžœžœžœ žœ˜~K˜—K˜š’œžœ'žœ˜GKšœžœ@™YK™—š’ œžœžœ˜3Kšœ žœ8™GK™—K˜š’œžœ5žœžœ˜MKšœY™YKšœ žœ>™MK™IK˜—š’ œžœ7žœžœ˜VKšœ™K˜—Kš’ œžœ+žœžœ˜Lš ’œžœ žœ žœžœ˜TK™>K˜——K˜Kšžœ˜—…—X9Š