28 lines
856 B
Scheme
28 lines
856 B
Scheme
|
;; bowed string (jmcc)
|
||
|
|
|
||
|
|
(import (rnrs) (rsc3) (rhs))
|
||
|
|
|
||
|
|
(define series
|
||
|
|
(lambda (f n x i)
|
||
|
|
(if (= n 0)
|
||
|
|
nil
|
||
|
|
(cons x (series f (- n 1) (f x i) i)))))
|
||
|
|
|
||
|
|
(define bowed-string
|
||
|
|
(let* ((root 5)
|
||
|
|
(scale (map (lambda (n) (+ n root)) (list 0 2 4 5 7 9 11)))
|
||
|
|
(oct (list 24 36 48 60 72 84))
|
||
|
|
(choose (lambda (l) (select (i-rand 0 (length l)) (make-mce l))))
|
||
|
|
(f (midi-cps (add (choose scale) (choose oct))))
|
||
|
|
(n0 (clone 2 (brown-noise ar)))
|
||
|
|
(r0 (exp-rand 0.125 0.5))
|
||
|
|
(n1 (lf-noise1 kr r0))
|
||
|
|
(r1 (rand 0.7 0.9))
|
||
|
|
(r2 (replicate-m 12 (rand 1.0 3.0)))
|
||
|
|
(x (mul3 n0 0.007 (u:max 0 (mul-add n1 0.6 0.4))))
|
||
|
|
(d (klank-data (series add 12 f f) (series mul 12 1 r1) r2))
|
||
|
|
(k (klank x 1 0 1 d)))
|
||
|
|
(soft-clip (mul k 0.1))))
|
||
|
|
|
||
|
|
(audition (out 0 bowed-string))
|