ImagerStroke.mesa
Michael Plass, August 4, 1983 1:22 pm
DIRECTORY ImagerBasic, ImagerMasks, Scaled;
ImagerStroke: CEDAR DEFINITIONS ~ BEGIN
MaskFromStroke:
PROC [
path: ImagerBasic.Path,
clientToDevice: ImagerBasic.Transformation,
width: REAL,
strokeEnds: ImagerBasic.StrokeEnds,
closed: BOOLEAN,
sMin: INTEGER ← FIRST[INTEGER]/2,
sMax: INTEGER ← LAST[INTEGER]/2
] RETURNS [mask: ImagerMasks.Mask];
MaskThinSegment:
PROC [
dest, clipper: ImagerMasks.Mask,
sFrom, fFrom, sTo, fTo: Scaled.Value,
function: PACKED ARRAY [0..1] OF [0..1]
];
Subdivide: PROC [b: ImagerBasic.Bezier, vertex: PROC[ImagerBasic.Pair], tolerance: REAL ← 1.5, depth: NAT ← 0];
END.