turning on scaling.

This commit is contained in:
2015-03-17 21:42:18 -07:00
parent 3c56111340
commit 9db4671376

View File

@@ -63,7 +63,7 @@
[x y] (scene-world->talk-world scene-viewport [source-x [x y] (scene-world->talk-world scene-viewport [source-x
source-y]) source-y])
talk (assoc (label text style :set-font-scale 1.0 :set-alignment Align/center) talk (assoc (label text style :set-font-scale scale :set-alignment Align/center)
:source-x source-x :source-y source-y :source-x source-x :source-y source-y
) )
x (- x (/ (label! talk :get-width) 2)) x (- x (/ (label! talk :get-width) 2))
@@ -78,7 +78,7 @@
(let [[x y] (scene-world->talk-world scene-viewport [(:source-x dialogue) (let [[x y] (scene-world->talk-world scene-viewport [(:source-x dialogue)
(:source-y dialogue)])] (:source-y dialogue)])]
(-> entities (-> entities
(assoc-in [:dialogue :x] (- x (/ (doto (label! dialogue :get-width) println) 2))) (assoc-in [:dialogue :x] (- x (/ (label! dialogue :get-width) 2)))
(assoc-in [:dialogue :y] y) (assoc-in [:dialogue :y] y)
(update-in [:dialogue] ensure-on-screen) (update-in [:dialogue] ensure-on-screen)
)))) ))))