land colour make layout-test work again

diff --git a/generate-board b/generate-board
index aba250670b627025fece06fe81b19d567a0aa4ae..24c9eeb9661bfaa17b8cad94b1f2f65ecfb50110 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -527,7 +527,9 @@ sub darkerpscolour ($$) {
 
 sub facepscolour ($) {
   my ($colourname) = @_;
-  $xopts =~ m/W/ ? '1 setgray' : lighterpscolour($colourname, 0.75);
+  $xopts =~ m/W/ ? '1 setgray' :
+      $colourname =~ m/land/ ? miscpscolour($colourname)
+      : lighterpscolour($colourname, 0.75);
 }
 
 sub miscpscolour ($) {
@@ -539,7 +541,7 @@ sub miscpscolour ($) {
 sub seatrackedgepscolour () { darkerpscolour('cube', 0.25) }
 
 sub fill_faces() {
-  o("clippath ", miscpscolour('land'), " fill\n");
+  o("clippath ", facepscolour('land'), " fill\n");
   foreach my $rr (values %region) {
     next if $rr->{Name} =~ m/^L2?$/;
     face_path($rr);