From 4af5f6a864a12377f911f84975588cde6c1ef2b6 Mon Sep 17 00:00:00 2001 From: oakes Date: Mon, 13 Jan 2014 00:55:07 -0500 Subject: [PATCH] Add move-x and move-y --- src/play_clj/core_render.clj | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/play_clj/core_render.clj b/src/play_clj/core_render.clj index f1bb260..115400e 100644 --- a/src/play_clj/core_render.clj +++ b/src/play_clj/core_render.clj @@ -110,13 +110,23 @@ [screen new-width] (size! screen new-width (* new-width (/ (game :height) (game :width))))) -(defn move! - [{:keys [^Camera camera]} x y] +(defn move-x! + [{:keys [^Camera camera]} x] (assert camera) (when x (set! (. (. camera position) x) x)) + (.update camera)) + +(defn move-y! + [{:keys [^Camera camera]} y] + (assert camera) (when y (set! (. (. camera position) y) y)) (.update camera)) +(defn move! + [screen x y] + (move-x! screen x) + (move-y! screen y)) + ; interop (defmacro orthogonal-tiled-map!