examples/famtree.lua

   1 gr = require "graph"
   2
   3 --
   4 -- Formatted printing
   5 --
   6 local function printf(fmt, ...)
   7    print(string.format(fmt, ...))
   8 end
   9
  10 --
  11 -- Convenience
  12 --
  13 local node, edge, subgraph, cluster, digraph, strictdigraph, graph =
  14   gr.node, gr.edge, gr.subgraph, gr.cluster, gr.digraph, gr.strictdigraph, gr.graph
  15
  16 --
  17 -- The definition of a graph
  18 --
  19 local g = graph{"G",
  20   compound = "1",
  21 --  rankdir = "BT",
  22   size="6.5,6.5",
  23   comment = "LuaGraph: exam2.lua",
  24   cluster{
  25     "mueller",
  26     edge{
  27       node{"peter"},
  28       node{"maria"},
  29       label = "in love"
  30     },
  31     node{"toni"},
  32     node{"jupp"},
  33     edge{"toni", "jupp", label="brothers"},
  34     edge{"peter", "toni", label="father"},
  35     edge{"peter", "jupp", label="father"},
  36     edge{"maria", "toni", label="mother"},
  37     edge{"maria", "jupp", label="mother"}
  38   },
  39   cluster{
  40     "meier",
  41     edge{
  42       node{"johann"},
  43       node{"eva"},
  44       label = "in love"
  45     },
  46   },
  47   node{"berlin", fillcolor="blue"},
  48   edge{
  49     "peter", "berlin",
  50     ltail = "cluster_mueller",
  51     label = "lives in"
  52   },
  53   edge{
  54     "berlin", "johann",
  55     lhead = "cluster_meier",
  56     label = "lives in"
  57   },
  58   edge{
  59     "peter", "eva", label="daughter"
  60   },
  61   edge{
  62     "maria", "eva", label="daughter"
  63   }
  64 }
  65
  66 --
  67 -- Show the graph
  68 --
  69 if true then
  70   g:show()
  71 end
  72
  73 --
  74 -- Render the graph into postscript format
  75 --
  76 print("Render ...")
  77 g:layout("dot")
  78 g:render("ps", "out.ps")
  79 g:render("gif", "out.gif")
  80 g:render("svg", "out.svg")
  81 g:render("png", "out.png")
  82 g:freelayout()
  83 --
  84 -- Close the graph
  85 --
  86 print("Close ...")
  87 g:close()
  88