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

wip
---

diff --git a/parse-input-graph b/parse-input-graph
index 1c08748..64f9cff 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -254,7 +254,7 @@ sub o { print @_ or die $!; }
 sub output_dot () {
   o <<END;
 strict graph "map" {
-  layout="sfdp";
+  layout="neato";
   node [
     shape=circle;
     fixedsize=true;
@@ -263,6 +263,7 @@ strict graph "map" {
 END
   foreach my $via (0..$#vertex) {
     my $vertexa = $vertex[$via];
+    o("$via [label=\"".$vertexa->{Text}."\"];");
     foreach my $ei (@{ $vertexa->{Edges} }) {
       my $vib = $ei->{VIB};
       #if ($r1 eq 'NZ' || $r1 eq 'L') {