     (w/init-sector game-state)))
 
 
-(defn- leave-sector [game-state factor coord dir-vec]
+(defn- leave-quadrant [game-state factor coord dir-vec]
   ; (println "leaving quadrant")
   (let [place (warp-travel-distance (get-in @game-state [:enterprise])
                                     factor

          dir-vec [(Math/cos polar) (Math/sin polar)]]
      (loop [p (map + coord dir-vec) i n]
        (cond
          (leave-sector? p) (leave-sector game-state factor coord dir-vec)
          (hit-item? (get-in @game-state [:current-sector]) p) (bad-nav game-state factor p dir-vec)
          (<= i 0 ) (set-sector-position game-state factor p)
          :else (recur (map + p dir-vec) (dec i))))

      (swap! game-state update-in [:enterprise] merge updates)
      (when (> factor 1)
        (swap! game-state update-in [:stardate :start] inc))))
  (enter-quadrant game-state))

(defn move [game-state course factor]
  (let [n (int (* factor 8))
