From 681a4dfad5e69e11e9e1579afd21a4fa794bf18a Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 13:19:41 +0000
Subject: [PATCH] wip more debug

---
 parse-input-graph | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/parse-input-graph b/parse-input-graph
index 3ea008f..8b512a7 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -20,6 +20,7 @@ our %region;
 our %adj;
 # $adj{EARLIER}{LATER}{Dikes}
 # $adj{EARLIER}{LATER}{L}[]
+# $adj{EARLIER}{LATER}{T}[]
 
 sub read_in () {
   my $ccolour;
@@ -117,10 +118,13 @@ sub resolve_arefs () {
 
 sub adjacencies () {
   foreach my $ra (sort keys %region) {
-    foreach my $adja (@{ $region{$ra}{Adj} }) {
+    my $adjs = $region{$ra}{Adj};
+    foreach my $adji (0..$#$adjs) {
+      my $adja = $adjs->[$adji];
       my $rb = $adja->{Name};
       my ($r0,$r1) = sort region_cmp ($ra,$rb);
       push @{ $adj{$r0}{$r1}{L} }, $adja->{L};
+      push @{ $adj{$r0}{$r1}{T} }, substr($ra,0,1)."#".$adji;
       my $e = $adj{$r0}{$r1};
       $e->{Dikes} //= $adja->{Dikes};
       confess "$r0 - $r1 | @{ $e->{L} } | $e->{Dikes} $adja->{Dikes} ?"
@@ -193,6 +197,7 @@ strict graph "map" {
   node [
     shape=circle;
     fixedsize=true;
+    fontsize=8;
   ];
 END
   foreach my $r0 (sort keys %adj) {
@@ -203,7 +208,9 @@ END
 	$r1n = "_$r1 $r0";
 	next;
       }
-      o "\"$r0\" -- \"$r1n\";\n";
+      o "\"$r0\" -- \"$r1n\" [fontsize=8; label=\"".
+	  (join '/', @{ $e->{T} }).
+	  "\"];\n";
     }
   }
   o "}\n";
-- 
2.30.2