Dear list,<div><br></div><div>The attached code isn't actually good for anything; no bugs and no questions. I just like this and thought you might too.</div><div><br></div><div>Remix and share as you like.</div><div><br>
</div><div>Yours,</div><div>Kas.</div><div><br></div><div><div><br></div><div>(clear-colour 0)</div><div>(clear)</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> (scale 0))</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 .01) </div>
<div> (with-state</div><div> (hint-none)</div><div> (hint-wire) </div><div> (wire-colour (vector (+ .5 (sin (time))) (+ .5 (sin (* .3 (time)))) (+ .5 (sin (* .7 (time))))))</div>
<div> (scale (+ 6 (sin (time)))) </div><div> (rotate (vector (* 10 (time)) (* 13.5 (time)) (* 11.5 (time)) ))</div><div> (hint-anti-alias)</div><div> (draw-cube)))</div>
<div> (with-state</div><div> (hint-ignore-depth)</div><div> (texture (pixels->texture p))</div><div> (hint-anti-alias)</div><div> </div><div> (hint-unlit) </div><div> (rotate (vector (* 5 (time)) (* 16 (time)) (* 11 (time))))</div>
<div> (scale 5)</div><div> (backfacecull 0)</div><div> (draw-sphere)</div><div> (rotate (vector 0 180 0))</div><div> (scale 1.1)</div><div> </div><div> (draw-sphere)</div><div>
(rotate (vector 90 0 0))</div><div> (scale 1.1)</div><div> (draw-sphere))))</div><div><br></div></div>