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))))))
________________________________
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
