             [fatlip.protocols :refer [nodes succs Node]]
             [fatlip.sparse :refer [input->SparseGraph]]
             [fatlip.order :refer [SparseGraph->FlatGraph]]
-            [fatlip.plot :refer [FlatGraph->ClassGraphs ys pathify plot-xs]]
+            [fatlip.plot :refer [FlatGraph->ClassGraphs ys plot-xs min-y max-y]]
             [fatlip.draw.d3 :refer [data->path]]))
 
 
-(defn plot-alignments
+#_(defn plot-alignments
   [flat-graph max-slope min-arc-radius layer-sep node-sep char-sep]
   (let [{:keys [layers characters]} flat-graph]
     (->> flat-graph

                                    node-2 (:dest edge)]
                                {:x1 (* layer-sep (:layer-id node-1))
                                 :x2 (* layer-sep (:layer-id node-2))
                                 :y1 (get n-ys node-1)
                                 :y2 (get n-ys node-2)}))
                            (reduce set/union (vals (succs flat-graph))))]
             {:nodes nodes :edges edges}))
         node-ys)))


(defn draw-d3-coarse!
  [plot-data]
  (doall (map
          (fn [p-data]
            (let [svg (-> js/d3 (.select "#app") (.append "svg") (.attr "viewBox" "-50 0 4000 1000"))]
              (-> svg
                  (.selectAll "path")
                  (.data (clj->js (:edges p-data)))

(defn plot-coarse
  [flat-graph max-slope min-arc-radius layer-sep node-sep char-sep]
  (let [{:keys [layers characters]} flat-graph
        class-graphs (FlatGraph->ClassGraphs flat-graph)]
    (map (fn [class-graph]
           (let [node-ys (ys class-graph node-sep char-sep)
                 nodes (map (fn [node]
                              {:x (* layer-sep (:layer-id node))
                               :y (get node-ys node)
                               :id (:id node)})
                            (nodes flat-graph))
                 edges (map (fn [edge]
