   :on-touch-down
   (fn [screen entities]
     (let [coords (input->screen screen (input! :get-x) (input! :get-y))
-          world (:world screen)]
-      ())))
+          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

            [play-clj.g2d :refer :all]
            [play-clj.g2d-physics :refer :all]
            [play-clj.math :refer :all])
  (:import [com.badlogic.gdx.physics.box2d Box2DDebugRenderer]))

(def ^:const world-scale 30) ; pixels per meter


          brick-6 (doto {:body (create-brick-body! screen 320 300 120 60)})
          idol (doto {:body (create-idol-body! screen 320 242)})
          floor (doto {:body (create-floor-body! screen 320 470 640 20)})]
      (width! screen game-w)

      ; Return the entities
      [(assoc brick-1 :brick? true)
       (assoc brick-2 :brick? true)
       (assoc brick-3 :brick? true)
       (assoc brick-4 :brick? true)
       (assoc brick-5 :brick? true)
       (assoc brick-6 :brick? true)
       (assoc idol :idol? true)
       (assoc floor :floor? true)]))
  
  :on-render
  (fn [screen entities]
