rsc3/doc/examples/textures/_scm/jmcc-alien-froggies.scm

9 lines
253 B
Scheme
Raw Normal View History

2022-08-24 13:53:18 +00:00
; alien froggies (jmcc) #1
(withSc3
(overlapTextureUgen
(list 0.25 0.5 5 +inf.0)
(let* ((r 11)
(r* (Fold (Mul r (Exp (LinRand -0.2 0.2 0))) 1 30))
(o (Formant r* (ExpRand 200 3000) (MulAdd (Rand 0 9) r* r*))))
(Mul o 0.05))))