             [play-clj.g2d :refer :all]
             [play-clj.g2d-physics :refer :all]
             [play-clj.math :refer :all])
-  (:import [com.badlogic.gdx.physics.box2d Box2DDebugRenderer]))
+  (:import [com.badlogic.gdx.physics.box2d Box2DDebugRenderer]
+           [com.badlogic.gdx.physics.box2d QueryCallback]))
 
 (def ^:const world-scale 30) ; pixels per meter
 

         (fixture-def :density 2 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    body))

(defn create-idol-body!
  [screen x y]

  :on-touch-down
  (fn [screen entities]
    (let [coords (input->screen screen (input! :get-x) (input! :get-y))
          world (:world screen)
          bb [(- (:x coords) 0.1) (- (:y coords) 0.1) (+ (:x coords) 0.1) (+ (:y coords) 0.1)]
          pt-vec2 (vector-2 (input! :get-x) (input! :get-y))
          cb (reify QueryCallback
               (reportFixture [_ fixture]
                 (if (.testPoint fixture pt-vec2)
                   true)))])))


(defgame totem-destroyer-game
  :on-create
