[Fluxus] for your enjoyment

[Kassen]

A bit hard to describe. Just run it.

Kas.


(clear-colour 0)
(clear)
(reset-camera)

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

(with-primitive p
    (hint-wire)
    (scale 0))

(blur .05)

(scale (vector 2.2 2.2 1))

(every-frame (begin
    (with-pixels-renderer p
        (clear-colour (vector 0 0 0 0))
        (blur .005)
        (with-state
            ;(hint-none)
            (colour (vector 0 0 0 1))
            (hint-wire)
            (line-width 2)

            (rotate (vector (* 5 (time)) (* 6.5 (time)) (* 7.5 (time)) ))
            (hint-anti-alias)
            (with-state
                (wire-colour (vector (+ .5 (sin (time))) (+ .5 (sin (* .3
(time)))) (+ .5 (sin (* .7 (time))))))
                (scale (+ 2 (* 2 (sin (* .3 (time))))))
                (draw-torus))
            (with-state
                (wire-colour (vector (+ .5 (sin (* 2 (time)))) (+ .5 (sin (*
.32 (time)))) (+ .50 (sin (* .72 (time))))))

                (scale (+ 4 (* 4 (sin (* .41 (time))))))
                (draw-cube))
            (with-state
                (wire-colour (vector (+ .5 (sin (* .74 (time)))) (+ .5 (sin
(* .92 (time)))) (+ .5 (sin (* .36 (time))))))
                (scale (+ 3 (* 3 (sin (* .23 (time))))))
                (draw-sphere))
))
    (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)
        (with-state
            (blend-mode 'one 'one-minus-src-alpha )
            (scale (vector 1.1 1 1))
            (draw-sphere))
        (rotate (vector (* 360 (sin (* .1 (time)))) 180 0))

        (with-state
            (blend-mode 'src-alpha 'one  )
            (scale (vector 1.1 1 1))
            (draw-sphere)))))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.pawfal.org/pipermail/fluxus-pawfal.org/attachments/20110211/1cb4b3b2/attachment.html>