From 2701bf5da81e0bb9a1d0751f1390437917e09c27 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 23:43:33 +0100
Subject: [PATCH] wip pot processing

---
 pumpkin-books.ps.pl | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c715f69..b673112 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -139,6 +139,21 @@ END
   $o;
 }
 
+sub num_players ($;$) {
+  my ($n, $plus) = @_;
+  my $o = '';
+
+  $o .= <<END;
+  gsave
+    -0.94 0.50 dc translate
+    0.3 dup scale
+    pot_image
+    18 0 translate
+    pot_image
+  grestore
+END
+  return $o;
+}
 
 sub general_book ($$) { # put in a gsave
   my ($this, $costs) = @_;
@@ -559,15 +574,7 @@ END
 sub black_book_pair () {
   my $o = general_book($moth, [10, 1]);
 
-  $o .= <<END;
-  gsave
-    -0.94 0.50 dc translate
-    0.3 dup scale
-    pot_image
-    18 0 translate
-    pot_image
-  grestore
-END
+  $o .= num_players(2);
 
   $o .= exposition(<<END);
 The player with the shortest distance
-- 
2.30.2