23 lines
554 B
Racket
23 lines
554 B
Racket
|
#lang racket
|
||
|
|
;; status - working as of 20220820
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; fm-iter (rd)
|
||
|
|
|
||
|
|
(define fm-iter
|
||
|
|
(let* ((t0 (impulse ar (recip 0.30) 0))
|
||
|
|
(t1 (t-delay t0 0.15))
|
||
|
|
(t (mce2 t0 t1))
|
||
|
|
(k (t-rand 56 57 t))
|
||
|
|
(i (t-rand 40 480 t))
|
||
|
|
(j (t-rand -1 1 t))
|
||
|
|
(c (midi-cps k))
|
||
|
|
(m (midi-cps (add3 k 1 j)))
|
||
|
|
(s (env-perc 0.01 0.9 1 (list -4 -4)))
|
||
|
|
(e (env-gen ar t 0.1 0 1 remove-synth s))
|
||
|
|
(f (mul-add (sin-osc ar c 0) i m)))
|
||
|
|
(mul (sin-osc ar f 0) e)))
|
||
|
|
|
||
|
|
(audition (out 0 fm-iter))
|