change outsides

diff --git a/parse-input-graph b/parse-input-graph
index bbb59205a5cdb42a98807b8b4b3b281277de3279..8644ea3491e1adfe7a6d53d80de83cb9a01ab716 100755 (executable)
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -240,8 +240,8 @@ sub dual () {
 
       my ($ro,$adjio) = edge_id_to_other_id($ra,$adjia);
       my $ra_out = ($ra eq 'L' or $ra eq 'NZ');
-      my $is_spec = ($ra_out or
-                    ($ro eq 'L' or $ro eq 'NZ'));
+      my $ro_out = ($ro eq 'L' or $ro eq 'NZ');
+      my $is_spec = ($ra_out or $ro_out);
       my $adjib = ($adjia + 1) % @$adjsa;
       my $vib = $edgeid2vi{"$ra # $adjib"};
 
@@ -253,7 +253,7 @@ sub dual () {
         EdgeId => $eid,
         Text => "$eid\n$ro # $adjio",
         Spec => $is_spec,
-        Outside => $ra_out,
+        Outside => $ro_out,
       };
       push @{ $vertexa->{Edges} }, $einfo;
     }