From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 02:05:52 +0000 (+0000)
Subject: wip
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9ee7d68506b64da86d0ff1c1a323e21c0db8c270;p=pandemic-rising-tide.git

wip
---

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";
     }