3 Commits

2 changed files with 9 additions and 7 deletions

View File

@@ -3,12 +3,12 @@
:url "https://github.com/oakes/play-clj" :url "https://github.com/oakes/play-clj"
:license {:name "Public Domain" :license {:name "Public Domain"
:url "http://unlicense.org/UNLICENSE"} :url "http://unlicense.org/UNLICENSE"}
:dependencies [[com.badlogicgames.gdx/gdx "1.9.5"] :dependencies [[com.badlogicgames.gdx/gdx "1.14.0"]
[com.badlogicgames.gdx/gdx-box2d "1.9.5"] [com.badlogicgames.gdx/gdx-box2d "1.14.0"]
[com.badlogicgames.gdx/gdx-bullet "1.9.5"] [com.badlogicgames.gdx/gdx-bullet "1.14.0"]
[org.clojure/clojure "1.6.0"]] [org.clojure/clojure "1.11.3"]]
:repositories [["sonatype" :repositories [["sonatype"
"https://oss.sonatype.org/content/repositories/releases/"]] "https://oss.sonatype.org/content/repositories/releases/"]]
:source-paths ["src"] :source-paths ["src"]
:java-source-paths ["src-java"] :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] (mouseMoved [this sx sy]
(execute-fn! on-mouse-moved {:input-x sx :input-y sy}) (execute-fn! on-mouse-moved {:input-x sx :input-y sy})
false) false)
(scrolled [this a] (scrolled [this amountX amountY]
(execute-fn! on-scrolled {:amount a}) (execute-fn! on-scrolled {:amount-x amountX :amount-y amountY})
false) false)
(touchDown [this sx sy p b] (touchDown [this sx sy p b]
(execute-fn! on-touch-down {:input-x sx :input-y sy :pointer p :button b}) (execute-fn! on-touch-down {:input-x sx :input-y sy :pointer p :button b})
@@ -30,6 +30,8 @@
false) false)
(touchUp [this sx sy p b] (touchUp [this sx sy p b]
(execute-fn! on-touch-up {:input-x sx :input-y sy :pointer p :button b}) (execute-fn! on-touch-up {:input-x sx :input-y sy :pointer p :button b})
false)
(touchCancelled [this sx sy p b]
false))) false)))
(defmacro input-processor! (defmacro input-processor!