<> <> <> <> DIRECTORY Vector2 USING [VEC]; Cubic: CEDAR DEFINITIONS = { VEC: TYPE ~ Vector2.VEC; Coeffs: TYPE = RECORD [c0,c1,c2,c3: VEC]; <> <> <> Bezier: TYPE = RECORD[b0,b1,b2,b3: VEC]; <> CoeffsToBezier: PROC [c: Coeffs] RETURNS [b: Bezier]; BezierToCoeffs: PROC [b: Bezier] RETURNS [c: Coeffs]; BezierPolygon: PROC [b: Bezier, epsilon: REAL, Proc: PROC [VEC]]; IsFlat: PROC [b: Bezier, eps: REAL]; }.