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