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

  (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))))

(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]
