6 lines
176 B
Scheme
6 lines
176 B
Scheme
;; (trig1 in dur)
|
|
|
|
;; When `in' is trigered output a unit signal for `dur' seconds.
|
|
|
|
(let ((a (trig1 (dust ar 1) 0.2)))
|
|
(audition (out 0 (mul3 (f-sin-osc ar 800 0) a 0.2))))
|