[scpubgit/stemmatology.git] / script / svg_from_graphml.pl

#!/usr/bin/perl

use lib 'lib';
use strict;
use warnings;
use Text::Tradition;

# First: read the base. Make a graph, but also note which
# nodes represent line beginnings.
my $type = 'CollateX'; # either Self or CollateX

open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
my @lines = <GRAPH>;
close GRAPH;
my $graphml_str = join( '', @lines );

my $tradition = Text::Tradition->new(
    $type => $graphml_str,
    'linear' => 1,
    );

print $tradition->collation->as_svg();
print STDERR "DONE\n";
Commit	Line	Data
5f5e51a5	1	#!/usr/bin/perl
	2
	3	use lib 'lib';
	4	use strict;
	5	use warnings;
	6	use Text::Tradition;
	7
	8	# First: read the base. Make a graph, but also note which
	9	# nodes represent line beginnings.
f6066bac	10	my $type = 'CollateX'; # either Self or CollateX
5f5e51a5	11
	12	open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
	13	my @lines = <GRAPH>;
	14	close GRAPH;
	15	my $graphml_str = join( '', @lines );
	16
	17	my $tradition = Text::Tradition->new(
f6066bac	18	$type => $graphml_str,
9463b0bf	19	'linear' => 1,
5f5e51a5	20	);
	21
	22	print $tradition->collation->as_svg();
	23	print STDERR "DONE\n";