#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))