IPCubic:
CEDAR
DEFINITIONS
= BEGIN OPEN IPImagerBasic;
Coeffs:
TYPE =
RECORD[c0, c1, c2, c3: Pair];
The coefficients for a parametric cubic
x = c3.x*t^3 + c2.x*t^2 + c1.x*t + c0.x
y = c3.y*t^3 + c2.y*t^2 + c1.y*t + c0.y
CoeffsToBezier: PROC[Coeffs] RETURNS[Bezier];
BezierToCoeffs: PROC[Bezier] RETURNS[Coeffs];
Split: PROC[Bezier] RETURNS[Bezier,Bezier];
Flat: PROC[bezier: Bezier, epsilon: REAL] RETURNS[BOOLEAN];
END.