<div>A bit hard to describe. Just run it. </div><div><br></div><div>Kas.</div><div><br></div><div><br></div><div><div>(clear-colour 0)</div><div>(clear)</div><div>(reset-camera)</div><div><br></div><div>(hint-depth-sort)</div>
<div>(define p (build-pixels 1024 1024 #t))</div><div><br></div><div>(with-primitive p</div><div> (hint-wire) </div><div> (scale 0))</div><div><br></div><div>(blur .05)</div><div><br></div><div>(scale (vector 2.2 2.2 1))</div>
<div><br></div><div>(every-frame (begin</div><div> (with-pixels-renderer p</div><div> (clear-colour (vector 0 0 0 0)) </div><div> (blur .005) </div><div> (with-state</div><div> ;(hint-none)</div>
<div> (colour (vector 0 0 0 1))</div><div> (hint-wire)</div><div> (line-width 2) </div><div> </div><div> (rotate (vector (* 5 (time)) (* 6.5 (time)) (* 7.5 (time)) ))</div>
<div> (hint-anti-alias)</div><div> (with-state</div><div> (wire-colour (vector (+ .5 (sin (time))) (+ .5 (sin (* .3 (time)))) (+ .5 (sin (* .7 (time))))))</div><div> (scale (+ 2 (* 2 (sin (* .3 (time))))))</div>
<div> (draw-torus))</div><div> (with-state</div><div> (wire-colour (vector (+ .5 (sin (* 2 (time)))) (+ .5 (sin (* .32 (time)))) (+ .50 (sin (* .72 (time))))))</div><div> </div>
<div> (scale (+ 4 (* 4 (sin (* .41 (time))))))</div><div> (draw-cube))</div><div> (with-state</div><div> (wire-colour (vector (+ .5 (sin (* .74 (time)))) (+ .5 (sin (* .92 (time)))) (+ .5 (sin (* .36 (time))))))</div>
<div> (scale (+ 3 (* 3 (sin (* .23 (time))))))</div><div> (draw-sphere))</div><div>))</div><div> (with-state</div><div> (hint-ignore-depth)</div><div> (texture (pixels->texture p))</div>
<div> (hint-anti-alias)</div><div> (hint-unlit) </div><div> (rotate (vector (* 5 (time)) (* 16 (time)) (* 11 (time))))</div><div> (scale 5)</div><div> (backfacecull 0)</div><div> (with-state</div>
<div> (blend-mode 'one 'one-minus-src-alpha )</div><div> (scale (vector 1.1 1 1))</div><div> (draw-sphere))</div><div> (rotate (vector (* 360 (sin (* .1 (time)))) 180 0))</div>
<div> </div><div> (with-state</div><div> (blend-mode 'src-alpha 'one )</div><div> (scale (vector 1.1 1 1))</div><div> (draw-sphere)))))</div><div><br></div></div>