From b3a4b4ff32b75ce291043ce2af1b37eb8a271f7f Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 12 Jan 2014 15:39:06 -0500 Subject: [PATCH] Allow sizing functions to work anywhere --- src/play_clj/core_render.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/play_clj/core_render.clj b/src/play_clj/core_render.clj index bd0afa3..f1bb260 100644 --- a/src/play_clj/core_render.clj +++ b/src/play_clj/core_render.clj @@ -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]