;; TODO these are hacks to be removed later,
;; the functionality should be provided by graph itself
;; TODO these are hacks to be removed later,
;; the functionality should be provided by graph itself
(to-vertex (find-vertex-by-id g (graphviz:node-name to)))
(real-edge (find-edge-between-vertexes g from-vertex to-vertex))
(bezier-points '()))
(to-vertex (find-vertex-by-id g (graphviz:node-name to)))
(real-edge (find-edge-between-vertexes g from-vertex to-vertex))
(bezier-points '()))