wip pot processing

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index cabbc1059094a56bcca1af7b2262d942ea80fed2..c715f6991119ca4500e281ddcd3d39edcd01bd08 100755 (executable)
--- 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;
+