moving ego.
This commit is contained in:
@@ -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))
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user