From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 17:46:28 +0000 (+0000)
Subject: land colour make layout-test work again
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=03e3a4c48f7903d210eeb435eabe40402f5f8808;p=pandemic-rising-tide.git

land colour make layout-test work again
---

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);