ImagerExtras.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 7, 1986 3:38:51 pm PDT
Additions to the Imager interface.
DIRECTORY
Imager USING [Context, PathProc, Trajectory, XStringProc];
ImagerExtras: CEDAR DEFINITIONS
~ BEGIN OPEN Imager;
Text and Spacing Correction
ShowAndFixedXRel: PROC [context: Context, string: XStringProc, x: REAL];
Does SetXRel[context, x] between characters.
Masks and Clipping
NewStrokeJoint: TYPE ~ {miter, bevel, round};
mitered: extend segment sides until they meet (acute angles make long, sharp corners)
round: join segments in a circle of strokeWidth diameter
NewSetStrokeJoint: PROC [context: Context, strokeJoint: NewStrokeJoint];
Establishes the joint style for subsequent strokes.
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];
END.