(bind-func static overdrive_c
"Drive range:[1.0,3.0] - user input is 0.0-1.0"
(lambda ()
(lambda (x:SAMPLE drive)
(set! drive (+ 1.0 (* 2.0 (clamp drive 0.0 1.0))))
(let ((absx (fabs x))
(drive_minus_1 (- drive 1.0)))
(/ (* x (+ absx drive))
(+ (* x x)
(* drive_minus_1 absx)
1.0))))))