From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 21:36:01 +0000 (+0000)
Subject: wip NZ
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=5d0f89b776ba193aaac7b217b48607665310c57d;p=pandemic-rising-tide.git

wip NZ
---

diff --git a/generate-board b/generate-board
index 12575bd..593e1d9 100755
--- a/generate-board
+++ b/generate-board
@@ -303,15 +303,23 @@ sub fill_faces() {
   }
 }
 
-sub edge_faces() {
+sub some_edge_faces (@) {
   o("5 setlinewidth 1 setlinejoin 0 setgray\n");
-  foreach my $rr (values %region) {
+  foreach my $rr (@_) {
     next if $rr->{Name} eq 'L';
     face_path($rr);
     o("    stroke\n");
   }
 }
 
+sub edge_faces() {
+  some_edge_faces($region{'NZ'});
+  some_edge_faces(grep {
+    my $n = $_->{Name};
+    !($n eq 'L' || $n eq 'NZ')
+  } values %region);
+}
+
 sub label_faces() {
   my $sz = 18;
   my $shadow = $sz * 0.1;