(with-animation (:width 500 :height 100) (looping t) (with-frame (:height 75 :width 15 :x 15 :y 15) ;; a bunch of vecto stuff (delay 50)) ;; many more with-frames (save-file "jack.gif"))
Fun! And I was able to do it with poor old bloated obsolete blazing-fast DSL-enabling pure rocking Common Lisp! The language with hash tables and arrays! And with a less gross incf idiom!