From 7ddcb8fca11959b2ddcee746a1a114c76e25caaf Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 15:21:00 +0000
Subject: [PATCH] multispot

---
 pumpkin-books.ps.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 4b40a1c..6f430ac 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -16,16 +16,19 @@ END
     my ($x,$y) = @_;
     $o .= <<END;
     newpath
-    spot 1.1 mul dup
+    spot 0.5 sqrt mul 1.1 mul dup
     $x mul exch $y mul
     spot 0.5 mul
     0 360 arc fill
 END
   };
 
-  if ($pips & 1) {
-    $spot->(0,0);
-  }
+  $spot->( 0, 0) if $pips & 1;
+  $spot->(-1,-1) if $pips & 6;
+  $spot->(+1,+1) if $pips & 6;
+  $spot->(-1,+1) if $pips & 4;
+  $spot->(+1,-1) if $pips & 4;
+
   $o;
 }
 
-- 
2.30.2