Thank you Tito for the response and for patching that into cm-incudine.
I'd also be happy to see other examples you like to use too, if you want
to include them. I've been learning both cm and incudine, so I would
love to see what others do with them together.
Thanks for the help Tito,
Brandon Hale
On 5/19/21 4:51 AM, Tito Latini wrote:
On Tue, May 18, 2021 at 03:48:45PM -0400, Brandon Hale wrote:
Hello all,
I am trying to figure out with cm-incudine how to trigger incudine (dsp!)
functions with common music (process) loops. I figure there is probably a
way built into cm-incudine to do this. I could always send midi from an
incudine midi output to an incudine midi input to trigger a (dsp!) function,
but this feels clunky.
I patched the extension of CM five years ago with:
(defmethod write-event ((obj function) (str incudine-stream) scoretime)
(declare (ignore str))
(at (+ (rts-now) scoretime) obj)
(values))
The side effect is the possibility to play the following example:
(in-package :scratch)
(dsp! girello (freq gain dur)
(stereo (* (envelope (make-perc .5 .5) 1 dur #'free)
(sine freq (db->linear gain)))))
(in-package :cm)
(defun harms (fund low high dur)
(let ((f (hertz fund)))
(process for i from low to high
output (lambda () (scratch::girello (* f (/ i low)) -9 dur))
wait (+ dur .1))))
(rts)
;; realtime
(sprout (harms 'c3 4 16 .25))
;; write soundfile
(incudine:bounce-to-disk ("/tmp/harms-from-cm.wav" :pad 0)
(sprout (harms 'c3 4 16 .25)))
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
