sort out seas

diff --git a/generate-board b/generate-board
index ddcc3b27559a45e86bfde5ab727d69adf033aa47..876794b85071da19ac6411d951504eea10469d65 100755 (executable)
--- 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 0416bb918c4a86d03f9493f3f2135d9459b9c285..7a92fd62c0d42b1c07d1c1e7142d58709123f5da 100644 (file)
--- 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)],