     ;(println (vec rooms))
     {:place cells #_(apply merge-with-canvas (canvas width height)
                      (concat corridors rooms))
-     :up-stairs upstairs
-     :down-stairs downstairs}))
+     #_#_:up-stairs upstairs
+     #_#_:down-stairs downstairs}))
 
 (defn place-to-ascii
   "Convert a grid of cells into a list of strings so that it can be rendered."

                                      :corridor)]
             [x y {:type cell-type}]))
         points)))

(defn add-room-features
  [cells-xy]

                                 (apply merge-with-canvas cells (points-to-corridor points))))
                             cells
                             g)
        [[upstairs-x upstairs-y]] (shuffle (clojure.set/difference (set room-centers) junction-rooms))
        [[downstairs-x downstairs-y]] (shuffle (filter (fn [[x y]]
                                                         (rc/farther-than?
                                                           (rc/xy->pos x y)
                                                           (rc/xy->pos upstairs-x upstairs-y)
                                                           (/ (min width height) 2.0)))
                                                       (clojure.set/difference (set room-centers) junction-rooms)))
        cells        (-> cells
                       (assoc-in [upstairs-y upstairs-x :type] :up-stairs)
                       (assoc-in [downstairs-y downstairs-x :type] :down-stairs))]
    ;(println "fcg" fcg)
    (println "g" g)
    (println "more-edges" more-edges)
