multispot

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 4b40a1ca17e956309c69d53859a0d23871ad1220..6f430ace6e4d6194faac0a00564fe175c1a48bea 100755 (executable)
--- 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;
 }