[Fluxus] A soothing colour pattern

[Rolf Meinecke]

Playing around with simple kaleidoscope like 2D patterns.

; I <3 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))







-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pawfal.org/pipermail/fluxus-pawfal.org/attachments/20130417/2bb8859e/attachment-0001.htm>