clean up script dir a little

diff --git a/script/make_svg.pl b/script/make_svg.pl

deleted file mode 100644 (file)

index 334c075..0000000
--- a/script/make_svg.pl
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-use lib 'lib';
-use strict;
-use warnings;
-use Text::Tradition::Graph;
-
-# First: read the base. Make a graph, but also note which
-# nodes represent line beginnings.
-
-open( GRAPH, $ARGV[0] ) or die "Could not read file $ARGV[0]";
-my @lines = <GRAPH>;
-close GRAPH;
-my $graphml_str = join( '', @lines );
-
-my $collation_graph = Text::Tradition::Graph->new(
-    'GraphML' => $graphml_str,
-    );
-
-print $collation_graph->as_svg();
-print STDERR "DONE\n";
diff --git a/script/svg_from_csv.pl b/script/svg_from_csv.pl

deleted file mode 100644 (file)

index 9b72e7a..0000000
--- a/script/svg_from_csv.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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 $tradition = Text::Tradition->new(
-    'CSV' => $ARGV[0],
-    'base' => $ARGV[1],
-    'linear' => 0,
-    );
-
-
-print $tradition->collation->as_svg();
-print STDERR "DONE\n";
-__END__
-my $rows = 0;
-my $matrix = [];
-foreach my $pos ( $collation_graph->{'positions'}->all ) {
-    my @p_nodes = $collation_graph->{'positions'}->nodes_at_position( $pos );
-    $rows = scalar @p_nodes
-       if $rows < scalar @p_nodes;
-    push( @$matrix, \@p_nodes );
-}
-print "<html><head><title>A table</title></head><body><table>\n";
-foreach my $i ( 0 .. $rows-1 ) {
-    print "\t<tr>\n";
-    foreach my $col( @$matrix ) {
-       my $str = '';
-       if( $col->[$i] ) {
-           $str = $collation_graph->node( $col->[$i] )->label;
-       }
-       printf( "\t\t<td>%s</td>\n", $str );
-    }
-    print "\t</tr>\n";
-}
-print "</table></body></html>\n";
diff --git a/script/svg_from_graphml.pl b/script/svg_from_graphml.pl

deleted file mode 100644 (file)

index 2555fa7..0000000
--- a/script/svg_from_graphml.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/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";
script/make_svg.pl	[deleted file]	patch \| blob \| blame \| history
script/svg_from_csv.pl	[deleted file]	patch \| blob \| blame \| history
script/svg_from_graphml.pl	[deleted file]	patch \| blob \| blame \| history