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

generate-board

index 297a0cbf2373af78cb2471dee8b4bda68de98ba2..bfc9bfc91b46cfe0d6446f9cc17f3eac343f7a6a 100755 (executable)
@@ -616,7 +616,9 @@ sub edge_faces() {
   some_edge_faces($region{$c{Sea}});
   dashedwithhses();
   some_edge_faces(grep {
-    $_->{Name} !~ m{^(?:L2?|NZ|ZZ)$}
+    my $n = $_->{Name};
+    $n !~ m{^(?:L2?|NZ|ZZ)$} &&
+    !grep { $n eq $_->{Inner} } @{ $c{DashedHs} }
   } values %region);
 }
 
@@ -877,7 +879,7 @@ sub dykes(){
   o("  } bind def\n");
   foreach my $rr (values %region) {
     next if $rr->{Special};
-    next if $rr->{Name} eq 'ZZ';
+    next if grep { $_->{Inner} eq $rr->{Name} } @{ $c{DashedHs} };
     next if $rr->{Colour} eq 'high';
     foreach my $adj (@{ $rr->{Adj} }) {
       my $neigh = $adj->{Name};