2022-08-24 13:53:18 +00:00
|
|
|
#lang racket
|
|
|
|
|
;; status - working as of 20220820
|
|
|
|
|
|
|
|
|
|
(require rsc3)
|
|
|
|
|
|
|
|
|
|
;; lfo modulation (jmcc)
|
|
|
|
|
|
|
|
|
|
(define lfo-modulation
|
|
|
|
|
(let* ((o (mul-add (f-sin-osc kr 0.05 0) 80 160))
|
|
|
|
|
(p (mul-add (f-sin-osc kr (mce2 0.6 0.7) 0) 3600 4000))
|
|
|
|
|
(s (rlpf (mul (lf-pulse ar o 0 0.4) 0.05) p 0.2)))
|
|
|
|
|
(comb-l s 0.3 (mce2 0.2 0.25) 2)))
|
|
|
|
|
|
|
|
|
|
(audition (out 0 lfo-modulation))
|
2022-08-28 10:27:01 +00:00
|
|
|
|
