Skip to content

Instantly share code, notes, and snippets.

@jsilence

jsilence/noisy-colour-rotating-planes

Last active December 16, 2015 09:18
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jsilence/5411516 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jsilence/5411516 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. jsilence renamed this gist Apr 18, 2013. 1 changed file with 0 additions and 0 deletions.
    0 gistfile1.scm → noisy-colour-rotating-planes
    View file
    File renamed without changes.
  2. jsilence created this gist Apr 18, 2013.
    21 changes: 21 additions & 0 deletions gistfile1.scm
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,21 @@
    (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))