rsc3/doc/examples/textures/_scm/jmcc-pond-life.scm

9 lines
297 B
Scheme
Raw Permalink Normal View History

2022-08-24 13:53:18 +00:00
; 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))))