Slide 13 : 24 |
(let* ((node-1 (svg-node circular 300 100 "A" 'rx 5 'bg-color "yellow")) (node-2 (svg-node rectangular 100 200 "B" 'rx 5 'bg-color "yellow")) (node-3 (svg-node rectangular 500 200 "C" 'rx 5 'bg-color "yellow")) (edge-1 (svg-edge node-1 "lc" node-2 "ct" 'style "hv" 'stroke-dasharray "3 3" 'arrow "yes")) (edge-2 (svg-edge node-1 "rc" node-3 "ct" 'style "hv" 'stroke-dasharray "3 3" 'arrow "yes")) ) (svg-graph (list node-1 node-2 node-3) (list edge-1 edge-2)))