set-accounts.laml - The some-subgraph function.

Slide 17 : 24 Program 1

(define (some-subgraph prefix)
  (let* ((x1 100) (x2 200) (x3 300) 
         (y1 100) (y2 200)
         (node-props (list 'bg-color "yellow" 'min-height 80 )))
    (let* ((n1 (svg-node circular  x1 y1 (string-append prefix "1") 
                         node-props))
           (n2 (svg-node circular  x3 y1 (string-append prefix "2")
                         node-props))
           (n3 (svg-node circular  x2 y2 (string-append prefix "3") 
                         node-props))
 
           (e1 (svg-edge n2 n1))
           (e2 (svg-edge n2 n3)))
    (svg-graph (list n1 n2 n3) (list e1 e2)))))