   "Generate a random grid and print it out."
   [& args]
   (println "generating...")
-  (print-cells (get (random-place 80 25 0) :cells)))
-
+  (print-cells (get (random-place 0) :cells)))
+

                       edges)
       junctions (keys (into {} (filter (fn [[_ connections]] (> connections 2))
                                        counts)))]
    #_(println "junctions" junctions)
    (set (take 2 junctions))))

(defn vertical-or-horizontally-aligned?

(defn canvas
  "Create a blank grid using `nil` for cell values."
  [width height]
  (vec (repeat height (vec (repeat width {:type :empty})))))

(defn find-point-relation [width height [start-x start-y] [end-x end-y]]
  "  top
    \\    /
     \\  /
