;; .schemedoc-dependencies  "c:\programs\laml-full-32-1\lib\man\svg-extensions" "c:\programs\laml-full-32-1\lib\xml-in-laml\mirrors\man\svg11-mirror"

(load (string-append laml-dir "laml.scm"))
(laml-style "simple-svg11")
(lib-load "svg-extensions.scm")

(define (my-rectangular-node x y label)
  (svg-node rectangular x y 
            'bg-color (rgb-color-encoding 117 255 117)
            label))

(write-html '(pp prolog)
  (svg 'width "600" 'height "250" 

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

  )
  (full-source-path-with-extension "svg")
)

(end-laml)