notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

closer to supporting toss.

Browse Source
This commit is contained in:
Remington Covert
2015-05-07 21:26:07 -07:00
parent 983a4ac251
commit a791a85e35
14 changed files with 108 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
desktop/src-common/advent/utils.clj
View File

@@ -117,10 +117,15 @@
(texture! frame :flip true false)
frame))))
(defn make-anim [file [w h] speed frames]
(defn split-texture [file [w h] frames]
(let [sheet (texture! (texture file) :split w h)]
(animation speed (for [i frames]
(aget sheet 0 i)))))
(for [i frames]
(aget sheet 0 i))))
(defn make-anim [file [w h] speed frames]
(animation speed (split-texture file [w h] frames)))
(defn make-bird [screen p]
(let [bird-sheet (texture! (texture "outside-castle/bird.png") :split 1 2)
bird-stand (animation 0.15 (for [i [0 1]]