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))))))