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

black wip
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 0131072..d1d8330 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -591,10 +591,40 @@ END
   $o;
 }
 
+sub black_common () {
+  <<END;
+    gsave
+      .15 .37 dc translate
+      .7 dup scale
+
+      15 1.5 moveto
+      /Helvetica-Bold findfont 6 scalefont setfont
+      (closest) show
+
+      gsave
+        17 0 translate
+        180 rotate
+        arrow
+      grestore
+      gsave
+        35 0 translate
+        arrow
+        newpath 0 0 moveto -18 0 rlineto stroke
+      grestore
+
+      ${\ chip($pumpkin,0) }
+
+      51 0 translate
+      ${\ chip($moth,   1) }
+    grestore
+END
+}
+
 sub black_book_pair () {
   my $o = general_book($moth, [10, 1]);
 
   $o .= num_players(2);
+  $o .= black_common();
 
   $o .= exposition(<<END);
 The player with the shortest distance
@@ -611,6 +641,7 @@ sub black_book_more () {
   my $o = general_book($moth, [10, 1]);
 
   $o .= num_players(3,'+');
+  $o .= black_common();
 
   $o .= exposition(<<END);
 
@@ -622,33 +653,6 @@ players(s) with the next-shortest distance
 get a ruby.
 END
 
-  $o .= <<END;
-    gsave
-      .15 .37 dc translate
-      .7 dup scale
-
-      15 1.5 moveto
-      /Helvetica-Bold findfont 6 scalefont setfont
-      (closest) show
-
-      gsave
-        17 0 translate
-        180 rotate
-        arrow
-      grestore
-      gsave
-        35 0 translate
-        arrow
-        newpath 0 0 moveto -18 0 rlineto stroke
-      grestore
-
-      ${\ chip($pumpkin,0) }
-
-      51 0 translate
-      ${\ chip($moth,   1) }
-    grestore
-END
-
   $o;
 }