From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 19:26:56 +0000 (+0100)
Subject: black: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=cfb2863ba8f2ab891c22e158eb2cd0d98aa7e1c3;p=quacks.git

black: wip
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 898d39a..0b1f6c3 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -556,6 +556,23 @@ END
   $o;
 }
 
+sub black_book () {
+  my $o = general_book($moth, [10, 1]);
+
+  $o .= <<END;
+END
+
+  $o .= exposition(<<END);
+The player with the shortest distance
+between a black chip and a pumpkin
+gets to move their droplet.
+
+If tied, both players get a ruby.
+END
+
+  $o;
+}
+
 sub arrow_any ($) { <<END;
   $black 1 setlinewidth
     newpath
@@ -649,4 +666,5 @@ print tile(
 	   blue_book(),
 	   lotus_book(),
 	   yellow_book(),
+	   black_book(),
 	  ) or die $! if 1;