From 99c85fe50650eaaac1e6d813580b3e6a0900d8c3 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Mar 2019 02:21:36 +0000
Subject: [PATCH] sort out seas

---
 generate-board | 11 ++++++++---
 misc-data.pl   |  1 +
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/generate-board b/generate-board
index ddcc3b2..876794b 100755
--- a/generate-board
+++ b/generate-board
@@ -453,9 +453,14 @@ END
   o("  /Helvetica-Bold findfont  $sz scalefont setfont\n");
   my %hs = map { $_ => 1 } @{ $c{HS} };
   foreach my $rr (values %region) {
-    next if $rr->{Special};
+    next if $rr->{Name} =~ m/^L\d?$/;
     my $words = $rr->{DisplayName};
-    my $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
+    my $pos;
+    if ($rr->{Name} eq 'NZ') {
+      $pos = mkvec(100, 1300);
+    } else {
+      $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
+    }
     if ($hs{$rr->{Name}}) {
       print STDERR "adjust hs $rr->{Name}\n";
       $pos -= mkvec(0, -$hs_sz*
@@ -469,7 +474,7 @@ END
       $pos += $sz * &mkvec(@$adjust);
     }
     my $w = $rr->{Water};
-    $w = 2 if $rr->{Name} eq 'ZZ';
+    $w = 2 if $rr->{Special} || $rr->{Name} eq 'ZZ';
     if ($w) {
       print STDERR " water $w in $rr->{Name}\n";
       my $down = water_cubes_sz(2) - water_cubes_sz(1) + $cube_gap;
diff --git a/misc-data.pl b/misc-data.pl
index 0416bb9..7a92fd6 100644
--- a/misc-data.pl
+++ b/misc-data.pl
@@ -16,6 +16,7 @@ our %c =
  },
  DisplayNames => {
      ZZ => 'Zuiderzee',
+     NZ => 'Noordzee',
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en Ijssel' ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
-- 
2.30.2