wip

diff --git a/.gitignore b/.gitignore
index 8f426e49db15708ec9f48bd3d85595fd5218960d..38ca98a729341169dbbe17ff4e38b8bd913ae5f8 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 map.dot
+map.ps

diff --git a/Makefile b/Makefile
index ba80604a29d3cd991e9c523f6e5aa7331bca6465..02c9db1ceac52714af4833dd37cbfc27a6e060c7 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -3,3 +3,6 @@ o= >$@.tmp && mv -f $@.tmp $@
 
 map.dot: parse-input-graph input-graph
        ./$^ $o
+
+map.ps: map.dot
+       neato -Tps $^ $o

diff --git a/parse-input-graph b/parse-input-graph
index 8d9cdc8ae64d687a4d2492accda1a666f96827b2..844fae5f2865b461dcfeb4b057add4001cc56798 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -139,7 +139,10 @@ sub output_dot () {
   foreach my $r0 (sort keys %edges) {
     foreach my $r1 (sort keys %{ $edges{$r0} }) {
       my $e = $edges{$r0}{$r1};
-      my $r1n = $r1 eq 'NZ' ? "_NZ $r0" : $r1;
+      my $r1n = $r1;
+      if ($r1 eq 'NZ') {
+       $r1n = "_NZ $r0";
+      }
       o "\"$r0\" -- \"$r1n\";\n";
     }
   }