9 lines
234 B
Scheme
9 lines
234 B
Scheme
;; (trig in dur)
|
|
|
|
;; When `in' is trigerred output the trigger value for `dur' seconds.
|
|
|
|
(let ((s (f-sin-osc ar 800 0))
|
|
(g (trig (dust ar 1) 0.2)))
|
|
(audition (out 0 (mul3 s g 0.5))))
|
|
|
|
(audition (out 0 (trig (dust ar 4) 0.1)))
|