working on texture packing

2015-09-12 00:28:35 -07:00
parent e2f08801b3
commit 10ea484ea2
46 changed files with 6161 additions and 30 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -136,7 +136,7 @@
                 frame))))

 (defn split-texture [file [w h] frames]
-  (let [sheet (texture! (texture file) :split w h)]
+  (let [sheet (texture! (get-texture file) :split w h)]
    (for [i frames]
      (aget sheet 0 i))))