Code: Select all
;; speed is in rpm
(setf depth 0.004)
(setf speed 45)
(multichan-expand #'snd-tapv *track* 0 (mult depth (sum 1 (hzosc (/ speed 60.0)))) 2)Code: Select all
;; speed is in rpm
(setf depth 0.004)
(setf speed 45)
(multichan-expand #'snd-tapv *track* 0 (mult depth (sum 1 (hzosc (/ speed 60.0)))) 2)Code: Select all
error: unbound variable - *
if continued: try evaluating symbol again
1>