(bind-func static LinTerp (lambda (x1:SAMPLE x2 y1 y2 x) (let ((dx 0.0)) (if (= (- x2 x1) 0.0) y1 (begin (set! dx (/ (- x x1) (- x2 x1))) (+ (* dx y2) (* y1 (- 1.0 dx))))))))