20 lines
508 B
Racket
20 lines
508 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; sample and hold liquidities (jmcc)
|
||
|
|
|
||
|
|
(define sahl
|
||
|
|
(let* ((r (mouse-x kr 1 200 1 0.1))
|
||
|
|
(t (recip r))
|
||
|
|
(c (impulse kr r 0.4))
|
||
|
|
(cf (mouse-y kr 100 8000 1 0.1))
|
||
|
|
(f (latch (mul-add (white-noise kr) (mul cf 0.5) cf) c))
|
||
|
|
(p (latch (white-noise kr) c))
|
||
|
|
(e (decay2 c (mul 0.1 t) (mul 0.9 t)))
|
||
|
|
(i (pan2 (mul (sin-osc ar f 0) e) p 1)))
|
||
|
|
(comb-n i 0.3 0.3 2)))
|
||
|
|
|
||
|
|
(audition (out 0 sahl))
|