DIRECTORY Atom USING [PropList], IIBox USING [Box, Rectangle], IIColor USING [Color, ColorOperator, ConstantColor, SampledColor, SpecialColor], IIFont USING [Font, XChar, XStringProc], IIPath USING [Outline, PathProc, Trajectory], IIPixel USING [PixelMap], IIPixelArray USING [PixelArray], IISample USING [SampleMap], IITransformation USING [ScanMode, Transformation], Rope USING [ROPE], SF USING [Vec, zeroVec], Vector2 USING [VEC]; II: CEDAR DEFINITIONS ~ BEGIN VEC: TYPE ~ Vector2.VEC; -- RECORD [x, y: REAL] zeroVEC: VEC ~ [0.0, 0.0]; Rectangle: TYPE ~ IIBox.Rectangle; -- RECORD [x, y, w, h: REAL] Transformation: TYPE ~ IITransformation.Transformation; PathProc: TYPE ~ IIPath.PathProc; Trajectory: TYPE ~ IIPath.Trajectory; Outline: TYPE ~ IIPath.Outline; PixelArray: TYPE ~ IIPixelArray.PixelArray; SampleMap: TYPE ~ IISample.SampleMap; PixelMap: TYPE ~ IIPixel.PixelMap; ScanMode: TYPE ~ IITransformation.ScanMode; defaultScanMode: ScanMode ~ [slow: down, fast: right]; Color: TYPE ~ IIColor.Color; ConstantColor: TYPE ~ IIColor.ConstantColor; SampledColor: TYPE ~ IIColor.SampledColor; SpecialColor: TYPE ~ IIColor.SpecialColor; ColorOperator: TYPE ~ IIColor.ColorOperator; Font: TYPE ~ IIFont.Font; XChar: TYPE ~ IIFont.XChar; XStringProc: TYPE ~ IIFont.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; -- IIPrivate.ClassRep StateRep: TYPE; -- IIState.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]; 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]; 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]; 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 ~ IIBox.Box; -- 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 ~ {miter, bevel, 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]; 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. II.mesa Copyright Σ 1984, 1985, 1986 by Xerox Corporation. All rights reserved. Michael Plass, November 21, 1986 4:47:50 pm 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 Equivalent to IIFont.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 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. 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. Κ ˜codešœ™KšœH™HK™/Kšœ)™)—K™K™K™šΟk ˜ Kšœœ ˜Kšœœ˜KšœœC˜PKšœœ˜(Kšœœ!˜-Kšœœ ˜Kšœ œ˜ Kšœ œ ˜Kšœœ˜2Kšœœœ˜Kšœœ˜Kšœœœ˜—K˜KšΠblœœ ˜šœ˜K˜Kšœœ œΟc˜/šœ œ˜K˜K˜—Kšœ œŸ˜?šœœ#˜7K˜—Kšœ œ˜!Kšœ œ˜%šœ œ˜K˜—šœ œ˜+K˜—šœ œ˜%K˜—šœ œ˜"K˜—Kšœ œ˜+šœ6˜6K˜—Kšœœ˜Kšœœ˜,Kšœœ˜*Kšœœ˜*šœœ˜,K˜—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šœ;™;K˜—K˜š œœ/œœ˜GK™SKšœœ9™EK˜—š œœ,œ˜HKšœ,™,K˜—š œœœ˜.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™—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™—šœœŸ(˜?K˜—š œœ˜+KšœK™KK™3K™—K˜š œœ!œ˜;K™-K˜—šœ œ˜(KšœJ™JKšœ1™1KšœE™EK˜—š  œœ*˜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šœ˜—…—„K)