polygons for all

diff --git a/generate-board b/generate-board
index 0981417e167773f2010eebfde58d4cb18ef931ef..b73f0c30b3573c758b19db5f7b85b9246017e900 100755 (executable)
--- 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) {