 (def tractor-beam-speed (c/screen-to-world 0.75))
 (def drop-speed (c/screen-to-world 1.1))
 (def default-r2 (c/screen-to-world 1.0))
+(def ship-width (c/screen-to-world 12))
+(def ship-half-width (c/screen-to-world 6))
 
 (defn create-ship-entity!
   ([screen]

  (let [ship (assoc (first (filter #(:ship? %) entities)) :has-doppel? true)
        all-others (filter #(nil? (:ship? %)) entities)
        doppel (create-ship-entity! screen :doppel?)]
    (body-position! ship (- (:x ship) (c/screen-to-world 6)) (:y ship) (:angle ship))
    (body-position! doppel (+ (:x ship) (c/screen-to-world 6)) (:y ship) (:angle ship))
    (-> all-others
        (conj ship)
        (conj doppel))))

        doppel (first (filter #(:doppel? %) entities))]
    (body-position! entity x-anchored y-anchored angle)
    (if doppel
      (body-position! doppel (+ x-anchored ship-width) y-anchored angle))
    (update! screen :ship-x x-anchored))
  entity)

