From 30cc51db72ed43bd4a5f5d9c89ecd10e3f981560 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 20:46:12 +0100
Subject: [PATCH] wip pot processing

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index cabbc10..c715f69 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -560,6 +560,13 @@ 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 .= exposition(<<END);
@@ -675,6 +682,7 @@ END
 }
 
 def_image("bag");
+def_image("pot");
 
 print "gsave\n" or die $!;
 
@@ -688,3 +696,4 @@ print tile(
 	   black_book_pair(),
 	   black_book_more(),
 	  ) or die $! if 1;
+
-- 
2.30.2