wip

diff --git a/generate-board b/generate-board
index b068c5d416d7bba0169533a2cb2c862dff2b40f9..9c0d855039f20ed427b102a5d5e06cb2d60661fa 100755 (executable)
--- 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");
+    }
   }
 }