examples/exam2.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 =
  14   gr.node, gr.edge, gr.subgraph, gr.cluster, gr.digraph, gr.strictdigraph
  15
  16 --
  17 -- The definition of a graph
  18 --
  19 local g = strictdigraph{"G",
  20   compound = "1",
  21   rankdir = "LR",
  22   size="6.5,6.5",
  23   comment = "LuaGraph: exam2.lua",
  24   cluster{"c1",
  25     edge{
  26       node{"n1", comment="123"},
  27       node{"n2"},
  28       label = "n1-n2"
  29     },
  30   },
  31   cluster{"c2",
  32     edge{
  33       node{"m1"},
  34       node{"m2"},
  35       node{"m3"},
  36       label = "m1-m2-m3"
  37     },
  38     edge{"m3", "m1"},
  39   },
  40   node{"o1"},
  41   edge{"n1", "m2", ltail="cluster_c1", lhead="cluster_c2", label="comp"},
  42   edge{"n1","o1", "m1", label="nom"}
  43 }
  44
  45
  46 --
  47 -- Render the graph into postscript format
  48 --
  49 print("Render ...")
  50 g:layout("dot")
  51 g:render("ps", "out.ps")
  52 g:render("gif", "out.gif")
  53 g:render("svg", "out.svg")
  54 g:render("png", "out.png")
  55 g:freelayout()
  56 --
  57 -- Show the graph
  58 --
  59
  60 g:show()
  61 --
  62 -- Close the graph
  63 --
  64 print("Close ...")
  65 g:close()
  66
  67