      *
      *****x"
   [[x1 y1] [x2 y2]]
-  (println "vertical-corner-segment")
+  #_(println "vertical-corner-segment")
   (concat (map #(vector x1 %) (range* y1 y2))
           (map #(vector % y2) (range* x1 x2))))
 

  "Takes a room and returns an [x y] of a door on the edge of the room."
  [[x-min y-min x-max y-max] start end]
  (let [side         (find-point-relation start end)]
    (println "find-door" start end side)
    (rand-nth (case side
                :left
                  (map (fn [i] [x-min i]) (range (inc y-min) y-max))

                                                       [room-center-2 room-center-1])))
                                              g)))]
                   [room-center-1 room-center-2]))]
    #_(println "all extra edges" (reduce (fn [edges [[x1 y1] [x2 y2]]]
                                         (conj edges [[x1 y1] [x2 y2] (rc/chebyshev-distance (rc/xy->pos x1 y1) (rc/xy->pos x2 y2))]))
                                       []
                                       edges))
