}
}
-sub afsluitdijk() {
- my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{'ZZ'}{Adj} };
+sub afsluitdijk ($) {
+ my ($inner) = @_;
+ my ($adj) = grep { $_->{Name} eq 'NZ' } @{ $region{$inner}{Adj} };
my $dash = 20;
my (@pos) = adj_ends($adj);
my $mid = 0.5 * ($pos[0] + $pos[1]);
one_hs('purple', $mid);
}
+sub afsluitdijken() {
+ afsluitdijk($_) foreach @{ $c{DashedHsInners} };
+}
+
sub edge_faces() {
some_edge_faces($region{$c{Sea}});
- afsluitdijk();
+ afsluitdijken();
some_edge_faces(grep {
$_->{Name} !~ m{^(?:L2?|NZ|ZZ)$}
} values %region);
NZ => 'Noordzee',
},
HS => [ 'Roer en Overmaas', 'Schouwen-Duiveland', 'Rijn en IJssel' ],
+ DashedHsInners => [ 'ZZ' ],
SeaTrack => [qw(2 2 2 3 3 3 4 4 4)],
CubeAbove => [
'Wieringermeer'