chiark / gitweb /
move CubeAbove knowledge to misc-data.pl
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 18:45:25 +0000 (18:45 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Mar 2019 18:45:25 +0000 (18:45 +0000)
NFC

generate-board
misc-data.pl

index 5ad415d6dbb9770a7190359976bcfab62b201aad..19a00a63b44941b6e8a21c36a9e1eca2db99f908 100755 (executable)
@@ -686,7 +686,7 @@ END
       my $down = water_cubes_sz(2) - water_cubes_sz(1) + $cube_gap;
       $pos -= mkvec(0, -0.5 * $down);
       my $cube_y = -($sz * @$words);
-      if ($rr->{Name} eq 'Wieringermeer') {
+      if (grep { $_ eq $rr->{Name} } @{ $c{CubeAbove} }) {
        $pos -= mkvec(0,+$sz);
        $cube_y = 0;
        $down = 0;
index ca3d259beba79f67d4a65163406de84d92883166..12083247aac9c1fefc84fea75d95e2145d177410 100644 (file)
@@ -34,6 +34,9 @@ our %c =
  },
  HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en IJssel' ],
  SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
+ CubeAbove => [
+   'Wieringermeer'
+ ],
  TextAdjust => {
    'Zeeuws-Vlaanderen' => [0.6, 0],
    'Walcheren'         => [0.6, 0.5], #-1.0, -0.75