(clear)
(hint-none)
(hint-wire)
(hint-anti-alias)
(hint-ignore-depth)
(backfacecull 0)
(wire-colour (vector 1 1 1))
(wire-opacity .012)
(blend-mode 'src-alpha 'one-minus-src-alpha)

(define (animate n)
    (if (zero? n)
        0
        (begin
            (push)
            (let ((s (* .02 n))
                  (r (+ n (* 15 (time)))))
                (scale (vector s s s))
                (rotate (vector r r r)))
            (draw-cube)
            (pop)
            (animate (sub1 n)))))

(every-frame (animate 250))