:graph-visitor
(lambda (dot-graph)
(setf (dot-attribute-value :bb g)
- (graphviz:graph-bounding-box dot-graph)))
+ (graphviz:graph-bounding-box dot-graph)))
:node-visitor
(lambda (node)
(to-vertex (find-vertex-by-id g (graphviz:node-name to)))
(real-edge (find-edge-between-vertexes g from-vertex to-vertex))
(bezier-points '()))
- (graphviz:edge-iterate-beziers
+ (graphviz:iterate-edge-beziers
edge
(lambda (bezier)
;;(format t " Bezier: ~a~%"