chiark / gitweb /
clarifications etc. from notes
[quacks.git] / pumpkin-books.ps.pl
index 29d8edf17b46c90035cc9bd4134cda860b342289..b0f07fac10bd7e343785a88c56908aee3c444fca 100755 (executable)
@@ -266,7 +266,8 @@ END
   $o .= $exchline->(1, 2, <<END);
   ${\ $exchip->($moth,1) }  ${\ $exslash->() }
   ${\ $exchip->($purple,1) }  ${\ $exslash->() }
-  ${\ anychip(2) }
+  ${\ $exchip->($lotus,0) }  ${\ $exslash->() }
+  ${\ $exchip->($anychip,2) }
 END
 
   $o .= $exchline->(0, 4, <<END);
@@ -378,16 +379,16 @@ END
 }
 
 sub book_yellow () {
-  my $o = general_book($yellow, [qw(7 12 19)]);
+  my $o = general_book($yellow, [qw(5 11 18)]);
 
   $o .= <<END;
 gsave
-  0.50 0.32 dc translate
-  0.65 dup scale
+  0.52 0.32 dc translate
+  0.80 dup scale
   -26 0 translate
   gsave 26 0 translate ${\ chip($yellow,0) } grestore
   gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
-  38 14 translate
+  34 14 translate
   -22.5 rotate
   1 -1 scale
   ${\ arrow_any("