                                             :set-gravity (vector-3 0 -10 0))
                           :attributes env
                           :camera cam)]
-      [(doto (create-sphere! screen (get-material) (get-attrs))
+      [(doto (create-sphere! screen)
          (body-position! 0 5 5))
-       (doto (create-box! screen (get-material) (get-attrs))
+       (doto (create-box! screen)
          (body-position! 0 5 0))]))
   :on-render
   (fn [screen entities]

    (size! screen width height))
  :on-touch-down
  (fn [{:keys [x y] :as screen} entities]
    (conj entities (create-box! screen (get-material) (get-attrs)))))

(defscreen text-screen
  :on-show

         (add-body! screen))))

(defn create-sphere!
  [screen]
  (-> (model-builder)
      (model-builder! :create-sphere 4 4 4 24 24 (get-material) (get-attrs))
      model
      (assoc :body (create-sphere-body! screen))))

