#lang racket
;; status - working as of 20220820

(require rsc3)

;; noise burst sweep (jmcc)

(define noise-burst-sweep
  (let* ((n (clone 2 (white-noise ar)))
         (lfo-rate (mouse-x* kr 10 60 1 0.2))
         (amp (u:max 0 (lf-saw kr lfo-rate -1)))
         (cfreq (mouse-y* kr 400 8000 1 0.2))
         (freq (mul-add (sin-osc kr 0.2 0) cfreq (mul 1.05 cfreq))))
    (resonz (mul n amp) freq 0.1)))

(audition (out 0 noise-burst-sweep))