From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 15:21:00 +0000 (+0000)
Subject: multispot
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=7ddcb8fca11959b2ddcee746a1a114c76e25caaf;p=quacks.git

multispot
---

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;
 }