;; .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")


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

   (let* ((node-1 (svg-node circular    300 100 "A" ))
          (node-2 (svg-node rectangular 100 200 "B"))
          (node-3 (svg-node rectangular 500 200 "C"))
          (edge-1 (svg-edge node-1 node-2)) 
          (edge-2 (svg-edge node-1 node-3 )) 
         )
     (svg-graph (list node-1 node-2 node-3) (list edge-1 edge-2)))

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

(end-laml)