           (body-position! entity (:home-x entity) (c/screen-to-world c/game-height) 0)
           (assoc entity :movement-state (state-machine (:movement-state entity))))))
 
-
+(defn- update-beaming [{:keys [:x :y :beaming-ticks] :as entity} screen]
+  (cond (> beaming-ticks 0)
+        (assoc entity :beaming-ticks (- beaming-ticks 1))
+        :else
+        (assoc entity :movement-state (state-machine (:movement-state entity)))))

          (= :dropping ms)
          (update-dropping entity screen)
          (= :beaming ms)
          entity)))

(defn update-emitter [screen entity]

  (:import [com.badlogic.gdx.graphics Pixmap Texture TextureData Pixmap$Format]))

(declare create-enemy-body! create-mini-body! create-minis explode-enemy rand-keyword
         spark-enemy update-beaming update-drift update-from-spline update-dropping
         update-emitter update-home update-returning)

(def boss
  {:name :ds3-boss
