14 lines
395 B
Racket
14 lines
395 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(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)))))
|
|
|