16 lines
467 B
Scheme
16 lines
467 B
Scheme
;; sample and hold liquidities (jmcc)
|
|
|
|
(import (rnrs) (rsc3))
|
|
|
|
(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))
|