          (get-in enterprise [:sector])
          (map #(* (* 8 factor) %) dir-vec))))
 
-(defn enter-sector [game-state]
+(defn enter-quadrant [game-state]
   ; ensure good sector/quadrant coords
   (let [sector (->> (get-in @game-state [:enterprise :sector])
                             (map #(max % 1))

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

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

          dir-vec [(Math/cos polar) (Math/sin polar)]]
      (loop [p (map + coord dir-vec) i n]
        (cond
          (leave-sector? p) (leave-quadrant 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))))
