texturepackr works

2015-09-12 01:26:41 -07:00
parent c832e4bc33
commit 78e8551da4
176 changed files with 2602 additions and 1698 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -143,6 +143,8 @@
 (defn make-anim [file [w h] speed frames]
  (animation speed (split-texture file [w h] frames)))

+(defn make-anim-seq [file [w h] speed frames]
+  (animation speed (map #(get-texture (str file "-" (inc %) ".png")) frames)))

 (defn make-bird [screen p]
  (let [bird-sheet (texture! (get-texture "outside-castle/bird.png") :split 1 2)