From 9ee7d68506b64da86d0ff1c1a323e21c0db8c270 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 02:05:52 +0000
Subject: [PATCH] wip

---
 parse-input-graph | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/parse-input-graph b/parse-input-graph
index 844fae5..0e13a9e 100755
--- 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";
     }
-- 
2.30.2