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

Use (game :x) and (game :y) again

Browse Source
This commit is contained in:
oakes
2014-11-06 15:56:18 -05:00
parent 7c5d7985e3
commit 9ebe9338b7
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
TUTORIAL.md
View File

@@ -117,13 +117,13 @@ The [game](http://oakes.github.io/play-clj/core.game.html) function gives you co
:on-touch-down :on-touch-down
(fn [screen entities] (fn [screen entities]
(cond (cond
(> (game :point-y) (* (game :height) (/ 2 3))) (> (game :y) (* (game :height) (/ 2 3)))
(println "up") (println "up")
(< (game :point-y) (/ (game :height) 3)) (< (game :y) (/ (game :height) 3))
(println "down") (println "down")
(> (game :point-x) (* (game :width) (/ 2 3))) (> (game :x) (* (game :width) (/ 2 3)))
(println "right") (println "right")
(< (game :point-x) (/ (game :width) 3)) (< (game :x) (/ (game :width) 3))
(println "left"))) (println "left")))
``` ```
@@ -162,13 +162,13 @@ Now we can update our `:on-key-down` and `:on-touch-down` functions to move the
:on-touch-down :on-touch-down
(fn [screen entities] (fn [screen entities]
(cond (cond
(> (game :point-y) (* (game :height) (/ 2 3))) (> (game :y) (* (game :height) (/ 2 3)))
(move (first entities) :up) (move (first entities) :up)
(< (game :point-y) (/ (game :height) 3)) (< (game :y) (/ (game :height) 3))
(move (first entities) :down) (move (first entities) :down)
(> (game :point-x) (* (game :width) (/ 2 3))) (> (game :x) (* (game :width) (/ 2 3)))
(move (first entities) :right) (move (first entities) :right)
(< (game :point-x) (/ (game :width) 3)) (< (game :x) (/ (game :width) 3))
(move (first entities) :left))) (move (first entities) :left)))
``` ```