             [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

         (map #(plot-xs % layers max-slope layer-sep)))))


(defn input->plots
  [input & {:keys [max-slope min-arc-radius layer-sep node-sep char-sep]
            :or {max-slope 10
                 min-arc-radius 15

(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]
