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 @_ })
}
sub miscpscolour ($) {
my ($colourname) = @_;
+ print STDERR "COLOUR MISC $colourname\n";
pscolour($c{Colours}{$colourname});
}