                        edges)
        junctions (keys (into {} (filter (fn [[_ connections]] (> connections 2))
                                         counts)))]
-    (println "junctions" junctions)
+    #_(println "junctions" junctions)
     (set (take 2 junctions))))
 
 (defn vertical-or-horizontally-aligned?

        door-xy-2         (if (contains? junction-room-centers end)
                            end
                            (find-door end-room-bounds end start))]
    (println "start" start)
    (println "start-room-bounds" start-room-bounds)
    (println "end" end)
    (println "end-room-bounds"end-room-bounds)
    (println "door-1" door-xy-1)
    (println "door-2" door-xy-2)
    (cond
      (vertical-or-horizontally-aligned? door-xy-1 door-xy-2)
        (rlos/line-segment door-xy-1 door-xy-2)

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

