moving ego.

This commit is contained in:
Bryce Covert
2017-05-27 08:50:10 -07:00
parent c9fe1d30ab
commit 26b0952345
429 changed files with 611 additions and 25 deletions

View File

@@ -1194,7 +1194,8 @@
:on-show
(fn [screen entities options]
(log/info "Initializing scene.")
(let [{cam :camera :as screen} (utils/setup-viewport screen 320 240)
(let [[screen global-atlas] (utils/acquire-atlas screen "packed/global.atlas")
{cam :camera :as screen} (utils/setup-viewport screen 320 240)
screen (assoc screen :total-time 0)]
(set! (. cam zoom) utils/min-zoom)
(let [shader (ShaderProgram. ^String (v-shader) ^String (pix-shader))

View File

@@ -402,9 +402,9 @@
:origin-x 0
:origin-y 0
:z 100)
:flying-ego (assoc (utils/get-texture "ego/flying.png")
:left (flip (utils/get-texture "ego/flying.png"))
:right (utils/get-texture "ego/flying.png")
:flying-ego (assoc (utils/atlas->texture global-atlas "ego/flying.png")
:left (flip (utils/atlas->texture global-atlas "ego/flying.png"))
:right (utils/atlas->texture global-atlas "ego/flying.png")
:scale-x 5
:scale-y 5
:origin-x 2