          (fixture-def :density 2 :restitution 0.4 :friction 0.5 :shape)
          (body! body :create-fixture))
     body))
+
+(defn create-brick-entity!
+  [screen block width height]
+  (assoc block
+    :body (create-brick-body! screen width height)
+    :width width :height height))
 
 (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)]
      ())))

(defgame totem-destroyer-game
  :on-create

          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]
