From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 6 Mar 2019 14:29:02 +0000 (+0000)
Subject: add some debug re colours
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=1f33e70c20d0c2f7e17d200d4fd6fe6f0f6dd9a1;p=pandemic-rising-tide.git

add some debug re colours
---

diff --git a/generate-board b/generate-board
index fd9fd81..96e5207 100755
--- a/generate-board
+++ b/generate-board
@@ -406,12 +406,14 @@ sub pscolour ($;$) {
 
 sub lighterpscolour ($$) {
   my ($colourname, $retain) = @_;
+  print STDERR "COLOUR LIGHTER $retain $colourname\n";
   pscolour($c{Colours}{$colourname},
 	   sub { $_ = 1.0 - $retain * (1.0 - $_) foreach @_ })
 }
 
 sub darkerpscolour ($$) {
   my ($colourname, $retain) = @_;
+  print STDERR "COLOUR DARKER $retain $colourname\n";
   pscolour($c{Colours}{$colourname},
 	   sub { $_ = $retain * $_ foreach @_ })
 }
@@ -423,6 +425,7 @@ sub facepscolour ($) {
 
 sub miscpscolour ($) {
   my ($colourname) = @_;
+  print STDERR "COLOUR MISC $colourname\n";
   pscolour($c{Colours}{$colourname});
 }