bombs

diff --git a/parse-input-graph b/parse-input-graph
index b3dfc84e099ea9ef0899bff738f6f17e5d24d38a..d9f54144454bcb4108f376befe8a792b03743920 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -25,6 +25,7 @@ our %adj;
 our @vertex;
 # $vertex[]{Text}
 # $vertex[]{EdgeIds}[]
+# $vertex[]{Edges}[][0..1] = NAME
 
 sub read_in () {
   my $ccolour;
@@ -227,6 +228,14 @@ sub dual () {
   foreach my $vertex (@vertex) {
     $vertex->{Edges} = [];
     foreach my $eid (@{ $vertex->{EdgeIds} }) {
+      $eid =~ m/ # (\d+)$/ or confess;
+      my ($ra, $adjia) = ($`, $1);
+      my ($rb, $adjib) = edge_id_to_other_id($ra, $adjia);
+      my $vi = $edgeid2vi{"$rb # $adjib"};
+      my $vertex2 = $vertex[$vi];
+      confess "$rb # $adjib $vi" unless defined $vi and defined $vertex2;
+      my ($r0,$r1) = sort region_cmp ($ra,$rb);
+      push @{ $vertex->{Edges} }, [ $r0, $r1 ];
     }
   }
 }