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

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

(defn- create-ship-body!

        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)

