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

Update tutorial to reflect change

Browse Source
This commit is contained in:
oakes
2014-04-20 23:00:44 -04:00
parent 15d745a4bb
commit 0af21bdc67
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
TUTORIAL.md
View File

@@ -103,19 +103,19 @@ Now, what about mobile devices? We may not have a keyboard, so let's create an `
) )
``` ```
In this case, the screen map will contain an `:x` and `:y` for the point on the screen that was touched. We can simply check to see what part of the screen this point is by using `game` to get the overall game's width and height. In this case, the screen map will contain an `:input-x` and `:input-y` for the point on the screen that was touched. We can simply check to see what part of the screen this point is by using `game` to get the overall game's width and height.
```clojure ```clojure
:on-touch-down :on-touch-down
(fn [screen entities] (fn [screen entities]
(cond (cond
(> (:y screen) (* (game :height) (/ 2 3))) (> (:input-y screen) (* (game :height) (/ 2 3)))
(println "down") (println "down")
(< (:y screen) (/ (game :height) 3)) (< (:input-y screen) (/ (game :height) 3))
(println "up") (println "up")
(> (:x screen) (* (game :width) (/ 2 3))) (> (:input-x screen) (* (game :width) (/ 2 3)))
(println "right") (println "right")
(< (:x screen) (/ (game :width) 3)) (< (:input-x screen) (/ (game :width) 3))
(println "left"))) (println "left")))
``` ```
@@ -153,13 +153,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
(> (:y screen) (* (game :height) (/ 2 3))) (> (:input-y screen) (* (game :height) (/ 2 3)))
(move (first entities) :down) (move (first entities) :down)
(< (:y screen) (/ (game :height) 3)) (< (:input-y screen) (/ (game :height) 3))
(move (first entities) :up) (move (first entities) :up)
(> (:x screen) (* (game :width) (/ 2 3))) (> (:input-x screen) (* (game :width) (/ 2 3)))
(move (first entities) :right) (move (first entities) :right)
(< (:x screen) (/ (game :width) 3)) (< (:input-x screen) (/ (game :width) 3))
(move (first entities) :left))) (move (first entities) :left)))
``` ```