(let ((x1 100) (x2 300) (x3 500)
(y1 100) (y2 200)
)
(let* ((node-props (list 'bg-color "yellow" 'rx 5))
(edge-props (list 'stroke-dasharray "3 3" 'arrow "yes"))
(node-1 (svg-node circular x2 y1 "A" node-props))
(node-2 (svg-node rectangular x1 y2 "B" node-props))
(node-3 (svg-node rectangular x3 y2 "C" node-props))
(edge-1 (svg-edge node-1 "lc" node-2 "ct" 'style "hv" edge-props))
(edge-2 (svg-edge node-1 "rc" node-3 "ct" 'style "hv" edge-props))
)
(svg-graph (list node-1 node-2 node-3) (list edge-1 edge-2))) )