From 47a93b3ae7222de02642c5afaf0da7e0c4ec7ea0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 16:24:48 +0000
Subject: [PATCH] wip

---
 parse-input-graph | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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') {
-- 
2.30.2