From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Feb 2019 21:44:50 +0000 (+0000)
Subject: put edges in dual both ways, and filter in dot output
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=9709a68b6e08aa941c6bb84e392eef0f1162d009;p=pandemic-rising-tide.git

put edges in dual both ways, and filter in dot output
---

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;