From 1f33e70c20d0c2f7e17d200d4fd6fe6f0f6dd9a1 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Wed, 6 Mar 2019 14:29:02 +0000 Subject: [PATCH] add some debug re colours --- generate-board | 3 +++ 1 file changed, 3 insertions(+) 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}); } -- 2.30.2