   (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))
+    (body-position! ship (- (:x ship) ship-half-width) (:y ship) (:angle ship))
+    (body-position! doppel (+ (:x ship) ship-half-width) (:y ship) (:angle ship))
     (-> all-others
         (conj ship)
         (conj doppel))))

              :else entity)))
    entity))

(defn- move [screen entities {:keys [:x :y :angle] :as entity} direction]
  (let [mv-fn (case direction
                :right +
                :left -
                :straight (fn[x _] x))
        x (mv-fn x speed)
        x-anchored (cond (> x c/game-width-adj) c/game-width-adj
                         (< x 0) 0
                         :else x)
        y-diff (- y c/ship-y-default)
        y-anchored (cond (> y-diff drop-speed) (- y drop-speed)

      (body-position! (cond (= label :ship?)
                            (c/screen-to-world (/ c/game-width 2))
                            :else
                            (+ ship-width (:ship-x screen))) c/ship-y-default 0)
      (body! :set-linear-velocity 0 0)))))

(defn- create-ship-body!
