mus-chebyshev-u-sum takes a list of partial (harmonic) amplitudes:
(with-sound (:srate 48000 :channels 1 :play #t)
(let* ((dur 1.0)
(samps (seconds->samples dur))
(coeffs (float-vector 0 1 0 1/3 0 1/5 0 1/7 0 1/9))
(incr (hz->radians 200.0)))
(do ((i 0 (+ i 1))
(x 0.0 (+ x incr)))
((= i samps))
(outa i (* 0.1 (mus-chebyshev-u-sum x coeffs))))))
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
