;; low precision (bind-func parabolicSineLP (let ((B (/ 4.0 SPI)) (C (/ -4.0 (* SPI SPI))) (P 0.225)) (lambda (x) (+ (* B x) (* C x) (fabs x)))))