From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Dec 2020 21:19:12 +0000 (+0000)
Subject: fix use rgb
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=2ef0d0a4ee2d65c23036e2b64c52a05217d329a7;p=quacks.git

fix use rgb

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 28bbdd4..93b83f2 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -20,8 +20,12 @@ sub chip ($$) {
   0 0 chip 0.5 mul 0 360 arc
   gsave 1 setlinewidth $black stroke grestore
   $cary->[0] setrgbcolor fill
+END
+  if ($pips) {
+    $o .= <<END;
   $cary->[1] setrgbcolor
 END
+  }
   my $spot = sub {
     my ($x,$y) = @_;
     $o .= <<END;
@@ -348,7 +352,7 @@ grestore
 gsave
    0.83 0.25 dc translate
    0.85 dup scale
-   ${\ chip(['0 0 0 0.5', ''], 0) }
+   ${\ chip(['.5 .5 .5', ''], 0) }
 grestore
 
 gsave
@@ -397,7 +401,7 @@ grestore
 gsave
    0.83 0.25 dc translate
    0.85 dup scale
-   ${\ chip(['0 0 0 0.5', ''], 0) }
+   ${\ chip(['.5 .5 .5', ''], 0) }
 grestore
 
 gsave