notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

text positioning is fixed.

Browse Source
This commit is contained in:
Remington Covert
2014-11-01 14:02:54 -07:00
parent e393eb6459
commit 25fde7edc3
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
desktop/src-common/advent/screens/dialogue.clj
View File

@@ -37,16 +37,14 @@
(let [font (bitmap-font "ego/font.fnt" ) (let [font (bitmap-font "ego/font.fnt" )
tr (bitmap-font! font :get-region) tr (bitmap-font! font :get-region)
scale (or (min (max scale 0.75) 1) 1) scale (or (min (max scale 0.75) 1) 1)
width (/ (game :width) 1.5)
tx (.getTexture tr) tx (.getTexture tr)
_ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear) _ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
talk (assoc (label text (style :label font (color :white))) :x (- (* 4 x) (/ width 2)) :y (* 4 y)) talk (assoc (label text (style :label font (color :white))) :y (* 4 y))]
talk (ensure-on-screen talk)]
(label! talk :set-wrap true)
(label! talk :set-width width)
(label! talk :set-font-scale scale) (label! talk :set-font-scale scale)
(label! talk :set-alignment Align/center) (label! talk :set-alignment Align/center)
(assoc entities target-id talk))) (assoc entities target-id (-> talk
(assoc :x (- (* 4 x) (/ (label! talk :get-width) 2)))
ensure-on-screen ))))
:stop-talk :stop-talk
(fn [{:keys [target-id] } [entities]] (fn [{:keys [target-id] } [entities]]