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

diff --git a/parse-input-graph b/parse-input-graph
index fe60ec7a0cc0f8cc39650489ba81bf44a3219dd1..5515d0d8dbd7b9183045863f8357c4173af1d8d6 100755 (executable)
--- 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;