15 lines
631 B
Scheme
15 lines
631 B
Scheme
|
; resonators harmonic series (jmcc) #2
|
||
|
|
(withSc3
|
||
|
|
(xfadeTextureUgen
|
||
|
|
(list 1 7 +inf.0)
|
||
|
|
(let* ((p 2)
|
||
|
|
(noise (Mul (BrownNoise) 0.001))
|
||
|
|
(rat (list 1.0 1.125 1.25 1.333 1.5 1.667 1.875 2.0 2.25 2.5 2.667 3.0 3.333 3.75 4.0))
|
||
|
|
(freq (Mul (listChoose rat) 120))
|
||
|
|
(resFreqs (zipWith Add ((series* Add) p freq freq) (replicateM p (lambda () (Rand2 0.5)))))
|
||
|
|
(spec (klankData
|
||
|
|
resFreqs
|
||
|
|
(map (lambda (i) (Fdiv 1 (Add i 1))) (enumFromTo 0 (- p 1)))
|
||
|
|
(replicateM p (lambda () (Rand 0.5 4.5))))))
|
||
|
|
(mceFill 2 (lambda (_) (Klank noise 1 0 1 spec))))))
|