(ns lacij.examples.circle
  (:use lacij.edit.graph
        lacij.view.graphview))

(defn -main []
  (-> (graph)
      (add-node :athena "Athena" :x 10 :y 30)
      (add-node :zeus "Zeus" :x 200 :y 150)
      (add-node :hera "Hera" :x 500 :y 150)
      (add-node :ares "Ares" :x 350 :y 250)
      (add-node :matrimony "♥" :x 400 :y 170 :shape :circle :style {:fill "salmon"})
      (add-edge :father1 :athena :zeus)
      (add-edge :zeus-matrimony :zeus :matrimony)
      (add-edge :hera-matrimony :hera :matrimony)
      (add-edge :son-zeus-hera :ares :matrimony)
      (build)
      (export "/tmp/circle.svg" :indent "yes")))


(ns lacij.examples.circle
  (:use lacij.edit.graph
        lacij.view.graphview))

(defn -main []
  (-> (graph)
      (add-node :athena "Athena" :x 10 :y 30)
      (add-node :zeus "Zeus" :x 200 :y 150)
      (add-node :hera "Hera" :x 500 :y 150)
      (add-node :ares "Ares" :x 350 :y 250)
      (add-node :matrimony "♥" :x 400 :y 170 :shape :circle :style {:fill "salmon"})
      (add-edge :father1 :athena :zeus)
      (add-edge :zeus-matrimony :zeus :matrimony)
      (add-edge :hera-matrimony :hera :matrimony)
      (add-edge :son-zeus-hera :ares :matrimony)
      (build)
      (export "/tmp/circle.svg" :indent "yes")))

