Skip to content

Instantly share code, notes, and snippets.

@jsilence
Last active December 16, 2015 09:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jsilence/5411516 to your computer and use it in GitHub Desktop.
Save jsilence/5411516 to your computer and use it in GitHub Desktop.
Simple Fluxus sketch. Fluctuating colour pattern made with perlin noise.
(clear)
(translate (vector -9.5 -8 0))
(opacity .2)
(hint-ignore-depth)
(define (ani)
(for* ([i (in-range 33)]
[j (in-range 20)])
(with-state
(translate (vector (* .6 i) (* .9 j) 0))
(rotate (vector 0 0 (+ 2 (* .9 i (time)))))
(scale (+ 3 (* 3 (sin(* .09 (time)))) (* .8 (atan(* .3 (time))))))
(colour (vector (noise .9 (+ (* .12 i) (* .1 (time))))
(noise .1 (+ (* .141 j) (* .08 (time))))
(noise .5 (+ (* .124 j) (* .09 (time))))))
(draw-plane)
)
)
)
(every-frame (ani))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment