     triangle-marker-ok
     triangle-marker-not-ok]
    (map svg-edge (make-edges world-state))
-   (map (partial svg-vertex edges) (range) vertices)])
+   (map svg-vertex (range) (map (partial inflow edges) (range)) vertices)])
 
 
 




(defn svg-vertex [edges id [weight [x y]]]
  (let [vert-inflow (inflow edges id)
        free (- vert-inflow weight)]
    (list
      [:svg:circle
       {:cx x :cy y
        :r (+ 5 (* weight 10))
        :fill (if (> free 0)
                "white"
                "gray")
        :stroke "black"
        :stroke-width 3
        }]

       {:x x :y (+ 5 y)
        :fill "black"
        :text-anchor "middle"}
       (str free)]))
  )


