<> <> <> <> DIRECTORY ImagerPath USING [PathProc, MoveToProc, LineToProc, ConicToProc, CurveToProc], ImagerPen USING [Pen], ImagerTransformation USING [Transformation], Real USING [LargestNumber], Vector2 USING [VEC]; NewImagerStroke: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerPath, ImagerPen, ImagerTransformation, Vector2; VertexIndex: TYPE ~ NAT; bigReal: REAL ~ Real.LargestNumber; PathFromStroke: PROC [path: PathProc, width: REAL, m: Transformation, moveTo: MoveToProc, lineTo: LineToProc, conicTo: ConicToProc, curveTo: CurveToProc, closed: BOOL, end: INT, joint: INT]; <> <<>> SquareEndWithNoDirection: SIGNAL; <> PenStroke: PROC [path: PathProc, pen: Pen, moveTo: MoveToProc, lineTo: LineToProc, conicTo: ConicToProc, curveTo: CurveToProc, closed: BOOL, end: PROC [p: VEC, v: VEC, i0, i1: VertexIndex], joint: PROC [p: VEC, v0, v1: VEC, i0, i1: VertexIndex]]; <> END.