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

wip
---

diff --git a/generate-board b/generate-board
index b068c5d..9c0d855 100755
--- a/generate-board
+++ b/generate-board
@@ -160,6 +160,7 @@ sub for_each_pos ($) {
 
 sub prvec ($) {
   my ($v) = @_;
+  confess unless $v;
   sprintf "%g,%g", $v->get(0), $v->get(1);
 }
 
@@ -218,8 +219,8 @@ sub transform_coordinates () {
 sub write_face_edges() {
   o("5 setlinewidth 1 setlinejoin\n");
   foreach my $rr (values %region) {
-    next if $rr->{Special};
-    o("% $rr->{Name} ",prvec($rr->{Centre}),"\n");
+    next if $rr->{Name} eq 'L';
+    o("% $rr->{Name}\n");
     o("  newpath\n");
     my $xto = 'moveto';
     foreach my $vertex (@{ $rr->{Polygon} }) {
@@ -235,7 +236,9 @@ sub write_face_edges() {
       o(sprintf " %.6f ", hex($_) / 15.0) foreach split //, $chex;
       o(" setrgbcolor eofill grestore\n");
     }
-    o("    stroke\n");
+    if ($rr->{Name} ne 'NZ') {
+      o("    stroke\n");
+    }
   }
 }