                                  :set-origin 0 0
                                  :set-position x-pos y-pos)
                         (polygon! :contains (:x coords) (:y coords))
-                        (and brick?))))
+                        (and breakable?))))
                 entities)))
 
 (defscreen main-screen

                          :camera (orthographic :set-to-ortho true game-w game-h)
                          :world (box-2d 0 5)
                          :debug-renderer (Box2DDebugRenderer.))
          brick (texture "1x1-transparent.png")
          brick-1 (doto (create-brick-entity! screen brick 30 30)
                    (body-position! (/ 275 world-scale) (/ 435 world-scale) 0))
          brick-2 (doto (create-brick-entity! screen brick 30 30)

(defn get-entity-at-cursor
  [screen entities]
  (let [coords (input->screen screen (input! :get-x) (input! :get-y))]
    (find-first (fn [{:keys [body width height breakable?] :as entity}]
                  (let [rot (body! body :get-angle)
                        x-pos (x (body! body :get-position))
                        y-pos (y (body! body :get-position))]
