sub { $_ = 1.0 - $retain * (1.0 - $_) foreach @_ })
}
+sub darkerpscolour ($$) {
+ my ($colourname, $retain) = @_;
+ pscolour($c{Colours}{$colourname},
+ sub { $_ = $retain * $_ foreach @_ })
+}
+
sub facepscolour ($) {
my ($colourname) = @_;
$xopts =~ m/W/ ? '1 setgray' : lighterpscolour($colourname, 0.75);
}
-
+
sub fill_faces() {
o("clippath ", facepscolour('land'), " fill\n");
foreach my $rr (values %region) {
my ($colour, $hspos) = @_;
token_circle("HS - $colour",
$hspos,
- pscolour($c{Colours}{$colour},
- sub { $_ = 0.75 * $_ foreach @_ }),
+ darkerpscolour($colour, 0.75),
'0 setgray');
}