From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Feb 2019 10:27:53 +0000 (+0000)
Subject: get order right
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=19f3a77429067c995837dd9ccddf667611a1a898;p=pandemic-rising-tide.git

get order right

planar-graph expects everything in anticlockwise (positive angle)
order
---

diff --git a/parse-input-graph b/parse-input-graph
index f3d81d0..c6feb94 100755
--- a/parse-input-graph
+++ b/parse-input-graph
@@ -171,7 +171,7 @@ sub output_planar_graph () {
     o(plag_prs($ra), "\n");
     if ($ra eq 'NZ' || $ra eq 'L') { o(" :outer\n"); }
     my $adjs = $region{$ra}{Adj};
-    foreach my $adj (@$adjs) {
+    foreach my $adj (reverse @$adjs) {
       o(" ", plag_prs($adj->{Name}), "\n");
     }
   }