From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Dec 2020 22:03:55 +0000 (+0000)
Subject: adjust colours from printout
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=41a41109ac64b2038c64862ac2a96c3994e9c1d0;p=quacks.git

adjust colours from printout
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index d5e5cdf..fb22b06 100755
--- 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";