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

wip
---

diff --git a/.gitignore b/.gitignore
index 8f426e4..38ca98a 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 map.dot
+map.ps
diff --git a/Makefile b/Makefile
index ba80604..02c9db1 100644
--- 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 8d9cdc8..844fae5 100755
--- 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";
     }
   }