(bind-func static hermite_interp
(lambda (fractional y1:SAMPLE x0 x1 x2)
(let ((c (* 0.5 (- x1 y1)))
(v (- x0 x1))
(w (+ c v))
(a (+ w v (* (- x2 x0) 0.5)))
(b (+ w a)))
(+ (* (+ (* (- (* a fractional) b) fractional) c) fractional) x0))))