8 lines
297 B
Scheme
8 lines
297 B
Scheme
; pond life (jmcc) #1
|
|
(withSc3
|
|
(overlapTextureUgen
|
|
(list 8 8 4 +inf.0)
|
|
(let* ((f0 (Add 20 (Rand 0 30)))
|
|
(f1 (MulAdd (FSinOsc f0 0) (Rand 100 400) (LinRand 500 2500 0)))
|
|
(a (Mul (LFPulse (Fdiv 3 (Rand 1 9)) 0 (Rand 0.2 0.5)) 0.04)))
|
|
(Pan2 (SinOsc f1 0) (Rand -1 1) a))))
|