get order right

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

diff --git a/parse-input-graph b/parse-input-graph
index f3d81d08b28c3ca641295568a7f0f0bb8a79bc5c..c6feb94151e06c6d77994ebe730aede5f6d32987 100755 (executable)
--- 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");
     }
   }