From 5d0f89b776ba193aaac7b217b48607665310c57d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 1 Mar 2019 21:36:01 +0000
Subject: [PATCH] wip NZ

---
 generate-board | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

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;
-- 
2.30.2