more numbers somethinng seems off

diff --git a/parse-input-graph b/parse-input-graph
index 04c5123971462d8ac2c5a9fbfad9c76604b73628..3a2746b8e0dd44a6e2ac25de5cd533dd2f4a8ae6 100755 (executable)
--- 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";
     }
   }