wip

diff --git a/parse-input-graph b/parse-input-graph
index 844fae5f2865b461dcfeb4b057add4001cc56798..0e13a9e95a967345f7dc3c335353bd4db1b60808 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -135,13 +135,17 @@ sub edges () {
 sub o { print @_ or die $!; }
 
 sub output_dot () {
-  o "strict graph \"map\" {\n";
+  o <<END;
+strict graph "map" {
+  node [ shape=circle ];
+END
   foreach my $r0 (sort keys %edges) {
     foreach my $r1 (sort keys %{ $edges{$r0} }) {
       my $e = $edges{$r0}{$r1};
       my $r1n = $r1;
       if ($r1 eq 'NZ') {
        $r1n = "_NZ $r0";
+       next;
       }
       o "\"$r0\" -- \"$r1n\";\n";
     }