inside castle.

This commit is contained in:
Bryce Covert
2017-05-28 10:44:02 -07:00
parent 8ea91c039d
commit 0770ac6f0b
8 changed files with 18 additions and 8 deletions

View File

@@ -393,8 +393,8 @@
(animation speed (split-texture atlas file [w h] frames))))
(defn make-bird [screen p]
(let [bird-sheet (texture! (get-texture "outside-castle/bird.png") :split 1 2)
(defn make-bird [screen global-atlas p]
(let [bird-sheet (texture! (atlas->texture global-atlas "bird") :split 1 2)
bird-stand (animation 0.15 (for [i [0 1]]
(aget bird-sheet 0 i)))]
(assoc (animation->texture screen bird-stand)