slightly better positioning.

This commit is contained in:
Bryce Covert
2016-10-17 08:29:28 -07:00
parent 520143e145
commit 94240558cd

View File

@@ -1351,7 +1351,7 @@ void main ()
utils/mobile? (update-in [:label]
(fn [l]
(let [[x y] (utils/unproject screen options [(.getScreenX (:viewport screen)) (.getScreenHeight (:viewport screen))])]
(assoc l :x (+ 25 x) :y y))))
(assoc l :x (unchecked-add 25 x) :y (unchecked-add 3 y)))))
(not utils/mobile?) (update-in [:label] ensure-on-screen))
@@ -1363,7 +1363,7 @@ void main ()
(assoc
(texture (aget all-items 0 (.indexOf utils/+all-cursors+ (or (:cursor (first (:last (:cursor entities)))) (first (:last (:cursor entities)))))))
:x x :y y
:x x :y (unchecked-add 1 y)
:baseline 9000)
(catch Exception e nil)
)))))