[Fluxus] for your enjoyment

[Kassen]

Dear list,

The attached code isn't actually good for anything; no bugs and no
questions. I just like this and thought you might too.

Remix and share as you like.

Yours,
Kas.


(clear-colour 0)
(clear)

(hint-depth-sort)
(define p (build-pixels 1024 1024 #t))

(with-primitive p
    (scale 0))

(every-frame (begin
    (with-pixels-renderer p
        (clear-colour (vector 0 0 0 0))
        (blur .01)
        (with-state
            (hint-none)
            (hint-wire)
            (wire-colour (vector (+ .5 (sin (time))) (+ .5 (sin (* .3
(time)))) (+ .5 (sin (* .7 (time))))))
            (scale (+ 6 (sin (time))))
            (rotate (vector (* 10 (time)) (* 13.5 (time)) (* 11.5 (time)) ))
            (hint-anti-alias)
            (draw-cube)))
    (with-state
        (hint-ignore-depth)
        (texture (pixels->texture p))
        (hint-anti-alias)

        (hint-unlit)
        (rotate (vector (* 5 (time)) (* 16 (time)) (* 11 (time))))
        (scale 5)
        (backfacecull 0)
        (draw-sphere)
        (rotate (vector 0 180 0))
        (scale 1.1)

        (draw-sphere)
        (rotate (vector 90 0 0))
        (scale 1.1)
        (draw-sphere))))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pawfal.org/pipermail/fluxus-pawfal.org/attachments/20110211/138a8609/attachment-0002.htm>