           screen (update! screen
                           :renderer (stage)
                           :camera (orthographic :set-to-ortho true game-w game-h)
-                          :world (box-2d 0 0)
+                          :world (box-2d 0 5)
                           :debug-renderer (Box2DDebugRenderer.))
           brick-1 (doto {:body (create-brick-body! screen 275 435 30 30)})
           brick-2 (doto {:body (create-brick-body! screen 365 435 30 30)})

          brick-4 (doto {:body (create-brick-body! screen 320 375 60 30)})
          brick-5 (doto {:body (create-brick-body! screen 305 345 90 30)})
          brick-6 (doto {:body (create-brick-body! screen 320 300 120 60)})
          idol (doto {:body (create-idol-body! screen 320 242)})]
      (width! screen game-w)))
  
  :on-render


(defn create-idol-body!
  [screen x y]
  (let [body (add-body! screen (body-def :dynamic))
        center-x (/ x world-scale)
        center-y (/ y world-scale)]
    (->> (polygon-shape :set-as-box (/ 5 world-scale) (/ 20 world-scale) (vector-2 center-x center-y) 0)
         (fixture-def :density 1 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    (->> (polygon-shape :set-as-box (/ 5 world-scale) (/ 20 world-scale)
                        (vector-2 center-x (+ center-y (/ 10 world-scale)))
                        (/ Math/PI -4))
         (fixture-def :density 1 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    (->> (polygon-shape :set-as-box (/ 5 world-scale) (/ 20 world-scale)
                        (vector-2 center-x (+ center-y (/ 10 world-scale)))
                        (/ Math/PI 4))
         (fixture-def :density 1 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    (->> [(+ center-x (/ -15 world-scale)) (+ center-y (/ -25 world-scale))
          (+ center-x 0) (+ center-y (/ -40 world-scale))
          (+ center-x (/ 15 world-scale)) (+ center-y (/ -25 world-scale))
          (+ center-x 0) (+ center-y (/ -10 world-scale))]
         float-array
         (polygon-shape :set)
         (fixture-def :density 1 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    body))

(defn create-floor-body!
  [screen x y width height]
  (let [body (add-body! screen (body-def :static))]
    (->> (polygon-shape :set-as-box (/ (/ width 2) world-scale) (/ (/ height 2) world-scale)
                        (vector-2 (/ x world-scale) (/ y world-scale)) 0)
         (fixture-def :density 2 :restitution 0.4 :friction 0.5 :shape)
         (body! body :create-fixture))
    body))

