From 9709a68b6e08aa941c6bb84e392eef0f1162d009 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Feb 2019 21:44:50 +0000
Subject: [PATCH] put edges in dual both ways, and filter in dot output

---
 parse-input-graph | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/parse-input-graph b/parse-input-graph
index fe60ec7..5515d0d 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -244,7 +244,6 @@ sub dual () {
       print STDERR "VIA=$via | $ra # $adjia | # $adjib VIB=$vib\n";
       my $vertexb = $vertex[$vib];
       confess "# $adjib $vib" unless defined $vib and defined $vertexb;
-      next unless $via <= $vib;
       my $einfo = {
         VIB => $vib,
         EdgeId => $eid,
@@ -279,6 +278,7 @@ END
     o("$via [label=\"".$vertexa->{Text}."\"];\n");
     foreach my $ei (@{ $vertexa->{Edges} }) {
       my $vib = $ei->{VIB};
+      next unless $via <= $vib;
       #if ($r1 eq 'NZ' || $r1 eq 'L') {
       #  $r1n = "_$r1 $r0";
       #  next;
-- 
2.30.2