7 lines
195 B
Scheme
7 lines
195 B
Scheme
;; (gate in trig)
|
|
|
|
;; The signal at `in' is passed while `trig' is greater than zero.
|
|
|
|
(let ((s (mul (f-sin-osc ar 500 0) 1/4))
|
|
(t (lf-pulse ar 1 0 1/10)))
|
|
(audition (out 0 (gate s t))))
|