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>