19 lines
753 B
Scheme
19 lines
753 B
Scheme
|
; bowed string (jmcc)
|
||
|
|
(withSc3
|
||
|
|
(overlapTextureUgen
|
||
|
|
(list 5 2 12 +inf.0)
|
||
|
|
(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))
|
||
|
|
(s:l-choose (lambda (l) (kr: (Select (IRand 0 (length l)) (make-mce l)))))
|
||
|
|
(f (MidiCps (Add (s:l-choose scale) (s:l-choose oct))))
|
||
|
|
(n0 (mceFill 2 (lambda (_) (BrownNoise))))
|
||
|
|
(r0 (ExpRand 0.125 0.5))
|
||
|
|
(n1 (LFNoise1 r0))
|
||
|
|
(r1 (Rand 0.7 0.9))
|
||
|
|
(r2 (replicateM 12 (lambda () (Rand 1.0 3.0))))
|
||
|
|
(x (Mul3 n0 0.007 (Max 0 (MulAdd n1 0.6 0.4))))
|
||
|
|
(d (klankData ((series-with Add) 12 f f) ((series-with Mul) 12 1 r1) r2))
|
||
|
|
(k (Klank x 1 0 1 d)))
|
||
|
|
(SoftClip (Mul k 0.1)))))
|