chip edges

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 2834d28b686c2cc8ee4d369bdab6d63dc933a459..58ba10f2636daed5ad1beab8b59e4d5820060371 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -11,9 +11,10 @@ my $red = ["0 1 1 0", "0 0 0 1"];
 sub chip ($$) {
   my ($cary, $pips) = @_; # put in a gsave translate
   my $o = <<END;
-  $cary->[0] setcmykcolor
   newpath
-  0 0 chip 0.5 mul 0 360 arc fill
+  0 0 chip 0.5 mul 0 360 arc
+  gsave 1 setlinewidth $black stroke grestore
+  $cary->[0] setcmykcolor fill
   $cary->[1] setcmykcolor
 END
   my $spot = sub {