26 lines
770 B
Scheme
26 lines
770 B
Scheme
|
;; (send-trig in id value)
|
||
|
|
|
||
|
|
;; On receiving a trigger (0 to non-zero transition), send a trigger
|
||
|
|
;; message from the server back to all registered clients. Clients
|
||
|
|
;; register by sending a /notify message to the server.
|
||
|
|
|
||
|
|
;; input - the trigger
|
||
|
|
|
||
|
|
;; id - an integer that will be passed with the trigger message. This
|
||
|
|
;; is useful if you have more than one send-trig in a SynthDef
|
||
|
|
|
||
|
|
;; value - a UGen or float that will be polled at the time of trigger,
|
||
|
|
;; and its value passed with the trigger message
|
||
|
|
|
||
|
|
(let ((s (lf-noise0 kr 10)))
|
||
|
|
(audition (mrg2 (send-trig s 0 s)
|
||
|
|
(out 0 (mul (sin-osc ar (mul-add s 200 500) 0) 0.1)))))
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (notify 1))
|
||
|
|
(sleep 2.0)
|
||
|
|
(let ((r (wait fd "/tr")))
|
||
|
|
(async fd (notify 0))
|
||
|
|
r)))
|