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

    (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

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