colours from ceb

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 5341e6c70c4db07fcde8fceb1893406f70154ac5..27139bd12fe3592dfa8defdea6f6f925efb091dc 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -8,10 +8,10 @@ my $red     = ["1   0  0", "0 0 0"];
 my $blue    = ["0  .4 1 ", "1 1 1"];
 my $yellow  = [".9 .9  0", "0 0 0"];
 my $moth    = [" 0  0  0", "1 1 1"];
-my $purple  = ["1   0 .8", "0 0 0"];
+my $purple  = [".8  0 .8", "0 0 0"];
 my $lotus   = [" 0 .6 .6", ".5 .5 0"];
 
-my $anychip = ['0.5', '0'];
+my $anychip = ['0.8', '0'];
 
 sub colour ($) {
   my ($c) = @_;