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;
},
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