12 lines
338 B
Scheme
12 lines
338 B
Scheme
;; (mix UGen)
|
|
|
|
;; Force multiple channel expansion and sum signals.
|
|
|
|
(let ((f (make-mce (list 600.2 622.0 641.3 677.7))))
|
|
(audition (out 0 (mul (mix (f-sin-osc ar f 0)) 0.1))))
|
|
|
|
;; Expansion nests.
|
|
|
|
(let ((l (f-sin-osc ar (mce2 100 500) 0))
|
|
(r (f-sin-osc ar (mce2 5000 501) 0)))
|
|
(audition (out 0 (mul 0.05 (mix (mce2 l r))))))
|