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

wip pot processing
---

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;
+