From 2ef0d0a4ee2d65c23036e2b64c52a05217d329a7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 5 Dec 2020 21:19:12 +0000
Subject: [PATCH] fix use rgb

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pumpkin-books.ps.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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
-- 
2.30.2