wip NZ

diff --git a/generate-board b/generate-board
index 12575bd0a350475ad61d3fe33e6baf23abcdcac6..593e1d9b00e527e4028fd756f1406aafb22b2e67 100755 (executable)
--- 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;