a lot of tweaks to make mobile faster.
This commit is contained in:
@@ -95,6 +95,7 @@
|
||||
(defscreen splash-screen
|
||||
:on-show
|
||||
(fn [screen entities]
|
||||
(println screen)
|
||||
(utils/setup-viewport screen 1280 960)
|
||||
(log/info "Starting splash screen.")
|
||||
|
||||
@@ -124,7 +125,7 @@
|
||||
|
||||
|
||||
:on-render
|
||||
(fn [{:keys [^FitViewport viewport] :as screen} [entities]]
|
||||
(fn [{:keys [^FitViewport viewport] :as screen} entities]
|
||||
(steam/update)
|
||||
(.apply viewport)
|
||||
(clear!)
|
||||
@@ -140,7 +141,7 @@
|
||||
:show-screen (fn [entities]
|
||||
entities)
|
||||
|
||||
:on-touch-up (fn [screen [entities]]
|
||||
:on-touch-up (fn [screen entities]
|
||||
(if (get-in entities [:current-step :can-skip])
|
||||
(assoc entities :current-step nil :queued-skip? false)
|
||||
(assoc entities :queued-skip? true)))
|
||||
@@ -151,6 +152,6 @@
|
||||
(utils/toggle-fullscreen!))
|
||||
nil)
|
||||
|
||||
:on-resize (fn [{:keys [^FitViewport viewport width height]} [entities]]
|
||||
:on-resize (fn [{:keys [^FitViewport viewport width height]} entities]
|
||||
(.update viewport width height false)
|
||||
nil))
|
||||
|
||||
Reference in New Issue
Block a user