11 lines
365 B
Scheme
11 lines
365 B
Scheme
; clustered sines (jmcc) #2
|
|
(withSc3
|
|
(xfadeTextureUgen
|
|
(list 4 4 +inf.0)
|
|
(let* ((n 80)
|
|
(f1 (Rand 100 1100))
|
|
(f2 (Mul 4 f1))
|
|
(y (replicateM n (lambda () (Add f1 (Rand 0 f2)))))
|
|
(z (klangData y (map (lambda (e) (Fdiv f1 e)) y) (replicate n 0)))
|
|
(k (mceFill 2 (lambda (_) (Klang 1 0 z)))))
|
|
(Mul k (Fdiv 0.3 n)))))
|