 (defn create-ball-body!
   [screen x y radius]
   (->> (circle radius)
-       (fixture :density 1 :friction 0 :restitution 1 :shape)
-       (create-body! screen :dynamic :set-transform x y 0 :create-fixture)))
+       (fixture-def :density 1 :friction 0 :restitution 1 :shape)
+       (create-body! screen (body-def :dynamic)
+                     :set-transform x y 0 :create-fixture)))
 
 (defn create-rect-body!
   [screen x y width height]

        0 0]
       float-array
       (chain :create-chain)
       (fixture :density 1 :shape)
       (create-body! screen :static :set-transform x y 0 :create-fixture)))

(defn move-paddle!
  [entities]

  (:require [play-clj.core :refer :all]
            [play-clj.g2d :refer :all]
            [play-clj.g2d-physics :refer :all]
            [play-clj.ui :refer :all]
            [play-clj.math :as m]))

(declare breakout main-screen text-screen)

