28 lines
849 B
Scheme
28 lines
849 B
Scheme
|
;; (convolution in kernel framesize)
|
||
|
|
|
||
|
|
;; Strict convolution of two continuously changing inputs. Also see
|
||
|
|
;; [convolution2] for a cheaper CPU cost alternative for the case of a
|
||
|
|
;; fixed kernel which can be changed with a trigger message.
|
||
|
|
|
||
|
|
;; in - processing target
|
||
|
|
;; kernel - processing kernel.
|
||
|
|
;; framesize - size of fft frame, must be a power of two
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(let ((input (sound-in (mce2 0 1)))
|
||
|
|
(kernel (white-noise ar)))
|
||
|
|
(out 0 (mul (convolution input kernel 2048) 0.1))))
|
||
|
|
|
||
|
|
(let ((a 2048)
|
||
|
|
(b 0))
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc b a 1))
|
||
|
|
(send fd (b-set1 b 0 1.0))
|
||
|
|
(replicate-m 100 (send fd (b-set1 b (random-integer a) (random 0.0 1.0))))
|
||
|
|
(play fd (out 0 (mul (convolution
|
||
|
|
(sound-in (mce2 0 1))
|
||
|
|
(play-buf 1 b (buf-rate-scale kr b) 1 0 1)
|
||
|
|
(* 2 a))
|
||
|
|
0.2))))))
|