From 430018ebd41a483b062ea3af43bcdea39270a94c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 2 Mar 2019 16:21:11 +0000
Subject: [PATCH] break out darkerpscolour

---
 generate-board | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/generate-board b/generate-board
index f2ba528..bcaa39a 100755
--- a/generate-board
+++ b/generate-board
@@ -336,11 +336,15 @@ showpage
 END
 }
 
+sub darkerpscolour ($$) {
+  my ($colourname, $retain) = @_;
+  pscolour($c{Colours}{$colourname},
+	   sub { $_ = 1.0 - $retain * (1.0 - $_) foreach @_ })
+}
+
 sub facepscolour ($) {
   my ($colourname) = @_;
-  $xopts =~ m/W/ ? '1 setgray'
-      : pscolour($c{Colours}{$colourname},
-		 sub { $_ = 1.0 - 0.75 * (1.0 - $_) foreach @_ });
+  $xopts =~ m/W/ ? '1 setgray' : darkerpscolour($colourname, 0.75);
 }
     
 sub fill_faces() {
-- 
2.30.2