From 3812362e98896e291af160fa4e99e40a0d105878 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 17:47:34 +0000
Subject: [PATCH] more numbers   somethinng seems off

---
 parse-input-graph | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/parse-input-graph b/parse-input-graph
index 04c5123..3a2746b 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -235,11 +235,12 @@ sub dual () {
       my ($ra, $adjia) = ($`, $1);
       my $adjsa = $region{$ra}{Adj};
 
-      my $ro = $adjsa->[$adjia]{Name};
+      my ($ro,$adjio) = edge_id_to_other_id($ra,$adjia);
       my $is_spec = (($ra eq 'L' or $ra eq 'NZ') or
 	             ($ro eq 'L' or $ro eq 'NZ'));
       my $adjib = ($adjia + 1) % @$adjsa;
       my $vib = $edgeid2vi{"$ra # $adjib"};
+
       print STDERR "VIA=$via | $ra # $adjia | # $adjib VIB=$vib\n";
       my $vertexb = $vertex[$vib];
       confess "# $adjib $vib" unless defined $vib and defined $vertexb;
@@ -247,6 +248,7 @@ sub dual () {
       my $einfo = {
         VIB => $vib,
         EdgeId => $eid,
+        Text => "$eid\n$ro # $adjio",
         Spec => $is_spec,
       };
       push @{ $vertexa->{Edges} }, $einfo;
@@ -285,7 +287,7 @@ END
       o "\"$via\" -- \"$vib\" [";
       o " weight=0.00001, w=0.00001, len=5," if $ei->{Spec};
       o "fontsize=8, label=\"".
-	  $ei->{EdgeId}."\",";
+	  $ei->{Text}."\",";
       o "];\n";
     }
   }
-- 
2.30.2