Rename function for consistency

This commit is contained in:
oakes
2014-01-13 16:47:10 -05:00
parent cd57839d35
commit 80d17783f2

View File

@@ -142,19 +142,19 @@
[screen new-width] [screen new-width]
(size! screen new-width (* new-width (/ (game :height) (game :width))))) (size! screen new-width (* new-width (/ (game :height) (game :width)))))
(defn move-x! (defn x!
[{:keys [^Camera camera]} x] [{:keys [^Camera camera]} x]
(assert camera) (assert camera)
(when x (set! (. (. camera position) x) x)) (when x (set! (. (. camera position) x) x))
(.update camera)) (.update camera))
(defn move-y! (defn y!
[{:keys [^Camera camera]} y] [{:keys [^Camera camera]} y]
(assert camera) (assert camera)
(when y (set! (. (. camera position) y) y)) (when y (set! (. (. camera position) y) y))
(.update camera)) (.update camera))
(defn move! (defn position!
[screen x y] [screen x y]
(move-x! screen x) (x! screen x)
(move-y! screen y)) (y! screen y))