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

fixes for resizing.

Browse Source
This commit is contained in:
Remington Covert
2015-02-23 16:45:31 -08:00
parent 082f814cc2
commit 942b3ae7f4
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/play_clj/core_graphics.clj
View File

@@ -486,8 +486,9 @@ with the tiled map file at `path` and `unit` scale.
entities) entities)
(defmethod draw! Stage (defmethod draw! Stage
[{:keys [^Stage renderer] :as screen} entities] [{:keys [^Stage renderer ^Camera camera] :as screen} entities]
(let [^Batch batch (.getBatch renderer)] (let [^Batch batch (.getBatch renderer)]
(.setProjectionMatrix batch (.combined camera))
(.begin batch) (.begin batch)
(doseq [entity entities] (doseq [entity entities]
(.setColor batch (color 1 1 1 (or (:opacity entity) 1.0))) (.setColor batch (color 1 1 1 (or (:opacity entity) 1.0)))

5
src/play_clj/core_listeners.clj
View File

@@ -186,11 +186,10 @@ in the `screen`."
(defn ^:private update-stage! (defn ^:private update-stage!
([{:keys [^Stage renderer ^Camera camera] :as screen}] ([{:keys [^Stage renderer ^Camera camera] :as screen}]
(when camera #_(when camera
(doto (.getViewport renderer) (doto (.getViewport renderer)
(.setCamera camera) (.setCamera camera)
(.setWorldSize (. camera viewportWidth) (. camera viewportHeight)) (.setWorldSize (. camera viewportWidth) (. camera viewportHeight)))))
(.update (game :width) (game :height) true))))
([{:keys [^Stage renderer ui-listeners]} entities] ([{:keys [^Stage renderer ui-listeners]} entities]
(doseq [^Actor a (.getActors renderer)] (doseq [^Actor a (.getActors renderer)]
(.remove a)) (.remove a))