IPStroke.mesa
Last changed by:
Doug Wyatt, April 11, 1983 2:00 pm
DIRECTORY
IPImagerBasic
USING [Pair, StrokeEnds, Transformation];
IPStroke:
CEDAR
DEFINITIONS
=
BEGIN
OPEN IPImagerBasic;
GenerateStroke:
PROC[
gen:
PROC[move:
PROC[Pair], line:
PROC[Pair], curve:
PROC[Pair, Pair, Pair]],
T: Transformation, width:
REAL, closed:
BOOLEAN, ends: StrokeEnds,
move:
PROC[Pair], line:
PROC[Pair], curve:
PROC[Pair, Pair, Pair]
];
END.