De Casteljau's Algorithm - Example Implementation

Example Implementation

Here is an example implementation of De Casteljau's algorithm in Haskell:

deCasteljau :: Double -> -> (Double, Double) deCasteljau t = b deCasteljau t coefs = deCasteljau t reduced where reduced = zipWith (lerpP t) coefs (tail coefs) lerpP t (x0, y0) (x1, y1) = (lerp t x0 x1, lerp t y0 y1) lerp t a b = t * b + (1 - t) * a