(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 (my-rectangular-node x1 y2 "B"))
            (node-3 (my-rectangular-node x3 y2 "C"))

            (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))) )