       :paint-method   draw-polygon
 
       :position       position
-      :speed          speed
+      :velocity       velocity
       :acceleration   0
 
       :direction      direction

        (recur (rest coll1) coll2 (conj coll1-result obj1))))))

(defmulti handle-damage (fn [{type :type}]
                          (cond
                            (#{:projectile :missile :bomb} type) :shot
                            (#{:ship :asteroid} type) type
                            :else :other)))

(defmethod handle-damage :ship [{:keys [damage-taken life] :as ship}]
  (when damage-taken (play-sound (if (<= life damage-taken) "ship-destroyed" "ship-hit")))

     (create-asteroid size [x y]))))

(defn create-asteroids
  ([num size] (repeatedly num #(create-asteroid size)))
  ([num size pos velocity] (repeatedly num #(create-asteroid size pos velocity))))

(defn play-sound
  ([sound gain]
