1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
$:.unshift( "../lib" )
require 'graphviz/dsl'
digraph :G do
node[:color => :lightblue, :style => :filled, :shape => :egg]
edge[:color => :gray, :arrowhead => :vee]
e "C/C++", "Java"
java do
n("Java") << n("Groovy")
n("Java") << n("Clojure")
n("Java") << n("JRuby")
graph[:label => "Java", :color => :blue]
end
e "C/C++", "Perl"
e "Perl", "PHP"
e "Perl", "Ruby"
e "Ruby", "Rubinius"
e "Ruby", "MacRuby"
e "Ruby", "JRuby"
%w{ Ruby JRuby MacRuby Rubinius }.each do |ruby|
n(ruby)[:color => :tomato]
end
output :png => "#{$0}.png"
end
|
