Compare commits

3 Commits

2 changed files with 9 additions and 7 deletions

View File

@@ -3,12 +3,12 @@
:url "https://github.com/oakes/play-clj"
:license {:name "Public Domain"
:url "http://unlicense.org/UNLICENSE"}
:dependencies [[com.badlogicgames.gdx/gdx "1.9.5"]
[com.badlogicgames.gdx/gdx-box2d "1.9.5"]
[com.badlogicgames.gdx/gdx-bullet "1.9.5"]
[org.clojure/clojure "1.6.0"]]
:dependencies [[com.badlogicgames.gdx/gdx "1.14.0"]
[com.badlogicgames.gdx/gdx-box2d "1.14.0"]
[com.badlogicgames.gdx/gdx-bullet "1.14.0"]
[org.clojure/clojure "1.11.3"]]
:repositories [["sonatype"
"https://oss.sonatype.org/content/repositories/releases/"]]
:source-paths ["src"]
:java-source-paths ["src-java"]
:javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"])
:javac-options ["-target" "11" "-source" "11" "-Xlint:-options"])

View File

@@ -19,8 +19,8 @@
(mouseMoved [this sx sy]
(execute-fn! on-mouse-moved {:input-x sx :input-y sy})
false)
(scrolled [this a]
(execute-fn! on-scrolled {:amount a})
(scrolled [this amountX amountY]
(execute-fn! on-scrolled {:amount-x amountX :amount-y amountY})
false)
(touchDown [this sx sy p b]
(execute-fn! on-touch-down {:input-x sx :input-y sy :pointer p :button b})
@@ -30,6 +30,8 @@
false)
(touchUp [this sx sy p b]
(execute-fn! on-touch-up {:input-x sx :input-y sy :pointer p :button b})
false)
(touchCancelled [this sx sy p b]
false)))
(defmacro input-processor!