10 lines
345 B
Scheme
10 lines
345 B
Scheme
;; (x-out buffer-index xfade inputs)
|
|
|
|
;; Send signal to a bus, crossfading with existing contents.
|
|
|
|
(let ((pair (lambda (a b) (mul (sin-osc ar (mce2 a b) 0) 0.1))))
|
|
(audition
|
|
(mrg4 (out 0 (pair 220 221))
|
|
(x-out 0 (mouse-x kr 0 1 0 0.1) (pair 330 331))
|
|
(x-out 0 (mouse-y kr 0 1 0 0.1) (pair 440 441))
|
|
(out 0 (pair 120 121)))))
|