19 lines
395 B
Racket
19 lines
395 B
Racket
#lang racket
|
|
;; status - working as of 20220820
|
|
|
|
(require rsc3)
|
|
|
|
;; forest sounds (paul jones)
|
|
|
|
(define insects
|
|
(lambda (_)
|
|
(let* ((n1 (brown-noise ar))
|
|
(n2 (lf-noise2 kr 50))
|
|
(f (mul-add n2 50 50))
|
|
(o (mul-add (sin-osc kr f 0) 100 2000)))
|
|
(mul (bpf n1 o 0.001) 10))))
|
|
|
|
(define forest-sounds
|
|
(mce-fill 2 insects))
|
|
|
|
(audition (out 0 forest-sounds))
|