wip more debug

diff --git a/parse-input-graph b/parse-input-graph
index 3ea008f8abf638d69b3b45cd7272a2d7c1a97b77..8b512a7dedbe32b57b9414b6d43e06f019670aa2 100755 (executable)
--- 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";