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

cleanup.

Browse Source
This commit is contained in:
=
2014-09-08 07:12:43 -07:00
parent 91d03855d5
commit 02538a8c05
3 changed files with 46 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -11,21 +11,27 @@
(defscreen talking-screen
:on-show
(fn [screen entities]
(update! screen :renderer (stage) :camera (orthographic)) [])
(update! screen :renderer (stage) :camera (orthographic))
{})
:on-render
(fn [screen entities]
(render! screen entities)
(fn [screen [entities]]
(render! screen (vals entities))
entities)
:on-talk
(fn [{:keys [create-talk text x y]} entities]
[(let [font (bitmap-font "mainfont.fnt" )
tr (bitmap-font! font :get-region)
tx (.getTexture tr)
_ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
talk (assoc (label text (style :label font (color :white)) ) :x (* 4 x) :y (* 4 y))]
(label! talk :set-font-scale 1)
talk)])
(fn [{:keys [create-talk target-id text x y]} [entities]]
(let [font (bitmap-font "mainfont.fnt" )
tr (bitmap-font! font :get-region)
tx (.getTexture tr)
_ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)
talk (assoc (label text (style :label font (color :white)) ) :x (* 4 x) :y (* 4 y))]
(label! talk :set-font-scale 1)
(assoc entities target-id talk)))
:stop-talk
(fn [{:keys [target-id] } [entities]]
(dissoc entities target-id))
:on-resize (fn [screen entities]