8 # First: read the base. Make a graph, but also note which
9 # nodes represent line beginnings.
10 my $type = 'CollateX'; # either Self or CollateX
12 open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
15 my $graphml_str = join( '', @lines );
17 my $tradition = Text::Tradition->new(
18 $type => $graphml_str,
22 print $tradition->collation->as_svg();
23 print STDERR "DONE\n";