58c619c08c
Taking MAINTAINER (discussed with espie on icb). OK ajacoutot@, sebastia@ At some point in the future, the language bindings should be multi-packaged, but that is another story.
16 lines
253 B
Raku
16 lines
253 B
Raku
#!/usr/bin/perl
|
|
use gv;
|
|
|
|
my $g = gv::graph("test");
|
|
|
|
my $n1 = gv::node($g, "a") ;
|
|
my $n2 = gv::node($g, "b") ;
|
|
my $n3 = gv::node($g, "c") ;
|
|
|
|
gv::edge($n1, $n2) ;
|
|
gv::edge($n2, $n3) ;
|
|
gv::edge($n3, $n1) ;
|
|
|
|
gv::layout($g, 'dot');
|
|
gv::render($g, 'xlib' );
|