From 87eb343e48d87c7d7e1084a70ee96ffd5fc51681 Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 12 Jan 2014 15:00:23 -0500 Subject: [PATCH] Change resizing functions --- src/play_clj/core_render.clj | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/play_clj/core_render.clj b/src/play_clj/core_render.clj index 3a6aa81..bd0afa3 100644 --- a/src/play_clj/core_render.clj +++ b/src/play_clj/core_render.clj @@ -97,12 +97,20 @@ [] (PerspectiveCamera.)) -(defn resize-camera! +(defn size! [{:keys [^OrthographicCamera camera]} width height] (assert camera) (.setToOrtho camera false width height)) -(defn move-camera! +(defn height! + [{:keys [width height] :as screen} new-height] + (size! screen (* new-height (/ width height)) new-height)) + +(defn width! + [{:keys [width height] :as screen} new-width] + (size! screen new-width (* new-width (/ height width)))) + +(defn move! [{:keys [^Camera camera]} x y] (assert camera) (when x (set! (. (. camera position) x) x))