15 lines
443 B
Scheme
15 lines
443 B
Scheme
;; babbling brook (jmcc)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(define babbling-brook
|
|
(let* ((b (lambda (f m a g)
|
|
(let* ((n1 (brown-noise ar))
|
|
(n2 (brown-noise ar))
|
|
(n3 (mul-add (lpf n2 f) m a)))
|
|
(mul (rhpf (one-pole n1 0.99) n3 0.03) g))))
|
|
(x (clone 2 (b 14 400 500 0.024)))
|
|
(y (clone 2 (b 20 800 1000 0.040))))
|
|
(add x y)))
|
|
|
|
(audition (out 0 babbling-brook))
|