From 19f3a77429067c995837dd9ccddf667611a1a898 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Feb 2019 10:27:53 +0000
Subject: [PATCH] get order right

planar-graph expects everything in anticlockwise (positive angle)
order
---
 parse-input-graph | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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");
     }
   }
-- 
2.30.2