
<<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.
<<>>