29 lines
888 B
Scheme
29 lines
888 B
Scheme
|
;; (pv-rand-wipe bufferA bufferB wipe trig)
|
||
|
|
|
||
|
|
;; Cross fades between two sounds by copying bins in a random order.
|
||
|
|
|
||
|
|
;; bufferA = fft buffer A. bufferB = fft buffer B. wipe = copies
|
||
|
|
;; bins from bufferB in a random order (0, 1). trig = select new
|
||
|
|
;; random ordering.
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc 10 2048 1))
|
||
|
|
(async fd (b-alloc 11 2048 1))))
|
||
|
|
|
||
|
|
(define-syntax n-of
|
||
|
|
(syntax-rules ()
|
||
|
|
((_ n f) (mix-fill n (lambda (_) f)))))
|
||
|
|
|
||
|
|
(let* ((n 6)
|
||
|
|
(a (n-of n (mul (lf-saw ar (exp-rand 400.0 1000.0) 0.0) 0.1)))
|
||
|
|
(b (n-of n (mul (lf-pulse ar (exp-rand 80.0 400.0) 0.0 0.2)
|
||
|
|
(u:max (mul (sin-osc kr (rand 0.0 8.0) 0.0) 0.2) 0.0))))
|
||
|
|
(f (fft* 10 a))
|
||
|
|
(g (fft* 11 b))
|
||
|
|
(y (mouse-y kr 0 1 0 0.1))
|
||
|
|
(x (mouse-x kr 0 1 0 0.1))
|
||
|
|
(h (pv-rand-wipe f g x (gt y 0.5)))
|
||
|
|
(i (ifft* h)))
|
||
|
|
(audition (out 0 (mul 0.5 (mce2 i i)))))
|