From 6f804a8b0f3a62c87cd1bb9fe6cf40c7092c523d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 20:31:37 +0100
Subject: [PATCH] black: wip

---
 pumpkin-books.ps.pl | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 0b1f6c3..cabbc10 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -556,7 +556,7 @@ END
   $o;
 }
 
-sub black_book () {
+sub black_book_pair () {
   my $o = general_book($moth, [10, 1]);
 
   $o .= <<END;
@@ -573,6 +573,25 @@ END
   $o;
 }
 
+sub black_book_more () {
+  my $o = general_book($moth, [10, 1]);
+
+  $o .= <<END;
+END
+
+  $o .= exposition(<<END);
+
+The player(s) with the shortest distance
+between a black chip and a pumpkin
+get to move their droplet.
+If only one player won a droplet, the
+players(s) the next-shortest distance
+get a ruby.
+END
+
+  $o;
+}
+
 sub arrow_any ($) { <<END;
   $black 1 setlinewidth
     newpath
@@ -666,5 +685,6 @@ print tile(
 	   blue_book(),
 	   lotus_book(),
 	   yellow_book(),
-	   black_book(),
+	   black_book_pair(),
+	   black_book_more(),
 	  ) or die $! if 1;
-- 
2.30.2