refinement.

2014-12-10 13:07:08 -08:00
parent bb7dcb3628
commit 3639e4fd06
4 changed files with 72 additions and 50 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -74,3 +74,8 @@
                 (texture! frame :set-region src-frame)
                 (texture! frame :flip true false)
                 frame))))
+
+(defn make-anim [file [w h] speed frames]
+  (let [sheet (texture! (texture file) :split w h)]
+    (animation speed (for [i frames]
+                                       (aget sheet 0 i)))))