[CM] make-polyshape

[James Hearon]

Hi,
re: make-polyshape

Very cool.  At least three ways to get the coeffs parameter working.  I don't why I couldn't figure that out earlier.
Thanks
JIm


(with-sound ()
  (let ((gen (make-polyshape 400.0 :coeffs  (float-vector -1.0 -5.0 18.0 8.0 -48.0 0.0 32.0)    )))
    (do ((i 0 (+ i 1)))
        ((= i 88200))
      (outa i (* .5 (polyshape gen 0.25))))))

(with-sound ()
  (let ((gen (make-polyshape 400.0 :coeffs #r(-1.0 -5.0 18.0 8.0 -48.0 0.0 32.0)    )))
    (do ((i 0 (+ i 1)))
        ((= i 88200))
      (outa i (* .5 (polyshape gen 0.25))))))

(with-sound ()
  (let ((gen (make-polyshape 400.0 :coeffs (partials->polynomial '(1 1 3 2 6 1) mus-chebyshev-second-kind))))
    (do ((i 0 (+ i 1)))
        ((= i 88200))
      (outa i (* .5 (polyshape gen 0.25))))))


________________________________
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20210207/58c3a1f7/attachment.html>