rsc3/doc/examples/graph/_scm/fm-iter.scm

21 lines
514 B
Scheme
Raw Permalink Normal View History

2022-08-24 13:53:18 +00:00
;; fm-iter (rd)
(import (rnrs) (rsc3))
(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))