From bd704bf6bf0e4a53cc2fd627e8893df47c3bd676 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 14 Jan 2019 16:01:24 +0000
Subject: [PATCH] bombs

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

diff --git a/parse-input-graph b/parse-input-graph
index b3dfc84..d9f5414 100755
--- 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 ];
     }
   }
 }
-- 
2.30.2