10 lines
359 B
Scheme
10 lines
359 B
Scheme
; coolant (jmcc) #2
|
|
(withSc3
|
|
(overlapTextureUgen
|
|
(list 4 4 2 +inf.0)
|
|
(let* ((p 10)
|
|
(n (asMce (replicate p 1)))
|
|
(sp (Mce2 (klankDataMce (RandN p 40 2400) n n)
|
|
(klankDataMce (RandN p 40 2400) n n)))
|
|
(s (OnePole (Mul (mceFill 2 (lambda (_) (BrownNoise))) 0.002) 0.95)))
|
|
(Klank s 1 0 1 (mceTranspose sp)))))
|