20 lines
504 B
Racket
20 lines
504 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; babbling brook (jmcc)
|
||
|
|
|
||
|
|
(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))
|
||
|
|
|
||
|
|
;; (with-sc3 reset)
|