parabolicSineHP   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/audio_dsp.xtm

Implementation

;; high precision
(bind-func parabolicSineHP
  (let ((B (/ 4.0 SPI))
        (C (/ -4.0 (* SPI SPI)))
        (P 0.225)
        (y 0.0))
    (lambda (x)
      (set! y (+ (* B x) (* C x (fabs x))))
      (+ (* P (- (* y (fabs y)) y)) y))))


Back to Index