From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 28 Feb 2019 13:55:30 +0000 (+0000)
Subject: polygons for all
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=3e4c37dba3d3064929ba851b70a1e465d462738e;p=pandemic-rising-tide.git

polygons for all
---

diff --git a/generate-board b/generate-board
index 0981417..b73f0c3 100755
--- a/generate-board
+++ b/generate-board
@@ -40,10 +40,12 @@ sub read_faces () {
   # Sets
   #  $region{NAME}{Adj}[]{Ends}[]{VxName}
   #  $region{NAME}{Adj}[]{Ends}[]{Pos}
-  #  $region{'NZ'}{Polygon}{Pos}
+  #  $region{NAME}{Polygon}{Pos}
   #
   # also incidentally
-  #  $region{NAME}{Adj}[]{Ends}[]{Adjoins} which should be ignored
+  #  $region{NAME}{Adj}[]{Ends}[]{Adjoins}
+  #  $region{NAME}{Polygon}{Adjoins}
+  # which should be ignored
 
   open P, "<", $facesf or die $!;
   while (<P>) { last if m/^\&faces$/; }
@@ -61,8 +63,9 @@ sub read_faces () {
 	my @eregions = split / \| ?/, $evxname;
 	grep { $_ eq 'NZ' } @eregions
       } @edges;
-      $rr->{Polygon} = [ @edges ];
-    } else {
+    }
+    $rr->{Polygon} = [ @edges ];
+    if ($rr->{Name} ne 'NZ') {
       for my $ei (0..$#edges) {
 	my $ej = $ei % @edges;
 	if (!defined $last_ai) {