18 lines
545 B
Scheme
18 lines
545 B
Scheme
|
; cymbalism (jmcc) #2
|
||
|
|
(withSc3
|
||
|
|
(xfadeTextureUgen
|
||
|
|
(list 4 4 +inf.0)
|
||
|
|
(let* ((p 15)
|
||
|
|
(f1 (Rand 500 2500))
|
||
|
|
(f2 (Rand 0 8000))
|
||
|
|
(mk-y (lambda (_)
|
||
|
|
(let ((f (Add f1 (RandN p 0 f2)))
|
||
|
|
(rt (RandN p 1 5))
|
||
|
|
(a (asMce (replicate p 1))))
|
||
|
|
(klankDataMce f a rt))))
|
||
|
|
(z (mceFill 2 mk-y))
|
||
|
|
(t (Impulse (Rand 0.5 3.5) 0))
|
||
|
|
(n (Mul (WhiteNoise) 0.03))
|
||
|
|
(s (Mul (Decay t 0.004) n)))
|
||
|
|
(Klank s 1 0 1 (mceTranspose z)))))
|