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

        :r (+ 5 (* weight 10))
        :fill (if (> free 0)
                "white"
                "black ")
        :stroke "black"
        :stroke-width 3
        }]

    :opacity 0.6
    }])





(defn inflow [edges vertex]
  (let [in-going (for [[_ [_ to color]] edges
                       :when (= to vertex)]
                   (color->value color))]
    (apply + in-going)))



(defn svg-vertex [edges id [weight [x y]]]
  (let [vert-inflow (inflow edges id)
