From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 13 Feb 2019 22:59:13 +0000 (+0000)
Subject: change outsides
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=52f6efe35c313467da710e43cc0a289add26edaa;p=pandemic-rising-tide.git

change outsides
---

diff --git a/parse-input-graph b/parse-input-graph
index bbb5920..8644ea3 100755
--- 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;
     }