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 28bbdd4792742ac17b956edd7f8a7117aea50727..93b83f244ac34464198af004d7a31684ddc16d98 100755 (executable)
--- 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