chiark / gitweb /
this is actually lighter!
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:22:02 +0000 (16:22 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 16:22:02 +0000 (16:22 +0000)
generate-board

index bcaa39aac1c8f6d9ef6fdf9147fa2dfdddd1a516..bbadc299ab5b443f210ab678c5a92ed8c6a2eb09 100755 (executable)
@@ -336,7 +336,7 @@ showpage
 END
 }
 
-sub darkerpscolour ($$) {
+sub lighterpscolour ($$) {
   my ($colourname, $retain) = @_;
   pscolour($c{Colours}{$colourname},
           sub { $_ = 1.0 - $retain * (1.0 - $_) foreach @_ })
@@ -344,7 +344,7 @@ sub darkerpscolour ($$) {
 
 sub facepscolour ($) {
   my ($colourname) = @_;
-  $xopts =~ m/W/ ? '1 setgray' : darkerpscolour($colourname, 0.75);
+  $xopts =~ m/W/ ? '1 setgray' : lighterpscolour($colourname, 0.75);
 }
     
 sub fill_faces() {