From 03e3a4c48f7903d210eeb435eabe40402f5f8808 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 17:46:28 +0000
Subject: [PATCH] land colour make layout-test work again

---
 generate-board | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/generate-board b/generate-board
index aba2506..24c9eeb 100755
--- 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);
-- 
2.30.2