adjust colours from printout

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d5e5cdffeb3d45992c2859f2586e3a31e1a35329..fb22b0651628148502c6ead762e48071de572013 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -6,16 +6,18 @@ my $pumpkin = ["1 .55  0", "0 0 0"]; # xxx check printout vs green
 my $green   = [" 0 .5  0", "1 1 1"];
 my $red     = ["1   0  0", "0 0 0"];
 my $blue    = ["0  .4 1 ", "1 1 1"];
-my $yellow  = ["1  .9  0", "0 0 0"];
+my $yellow  = ["1  1   0", "0 0 0"];
 my $moth    = [" 0  0  0", "1 1 1"];
-my $purple  = [".8  0 .8", "0 0 0"];
+my $purple  = ["145/44/238", "0 0 0"];
 my $lotus   = [" 0 .6 .6", ".5 .5 0"];
 
 my $anychip = ['0.8', '0'];
 
 sub colour ($) {
   my ($c) = @_;
-  if ($c =~ m/[^ 0-9.]/) {
+  if ($c =~ m{^(\d+)/(\d+)/(\d+)$}) {
+    return (join ' ', map { $_ / 255.0 } ($1,$2,$3)).' setrgbcolor';
+  } elsif ($c =~ m/[^ 0-9.]/) {
     return $c;
   } elsif ($c =~ m/^\s*\S+\s*$/) {
     return "$c setgray";