normal mode still styled correctly.

This commit is contained in:
Bryce Covert
2017-01-08 17:23:53 -08:00
parent d6b3fd805c
commit b2690c5a73
4 changed files with 20 additions and 9 deletions

View File

@@ -30,10 +30,12 @@
entity)
(def ui-scale 1.5)
(def ui-scale 1.0)
(def mobile? (= 1.5 ui-scale))
(def max-zoom (if mobile? 0.5 0.75))
(def min-zoom 0.95)
(def button-font-scale (if mobile? 1.0 0.5))
(def title-label-scale (if mobile? 0.5 0.25))
(defn clear-stage [{:keys [^Stage renderer]}]
(.clear renderer))
@@ -244,7 +246,7 @@
(defn get-font [filename]
(let [font (-> (bitmap-font filename)
#_(doto (bitmap-font! :set-scale 0.5 0.5)))
#_(doto (bitmap-font! :set-font-scale 0.5 0.5)))
tr (bitmap-font! font :get-region)
tx (.getTexture tr)]
(call! ^Texture tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)