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

Allow sizing functions to work anywhere

Browse Source
This commit is contained in:
oakes
2014-01-12 15:39:06 -05:00
parent 760cee44da
commit b3a4b4ff32
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/core_render.clj
View File

@@ -103,12 +103,12 @@
(.setToOrtho camera false width height))
(defn height!
[{:keys [width height] :as screen} new-height]
(size! screen (* new-height (/ width height)) new-height))
[screen new-height]
(size! screen (* new-height (/ (game :width) (game :height))) new-height))
(defn width!
[{:keys [width height] :as screen} new-width]
(size! screen new-width (* new-width (/ height width))))
[screen new-width]
(size! screen new-width (* new-width (/ (game :height) (game :width)))))
(defn move!
[{:keys [^Camera camera]} x y]