yellow: wip

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 43af2e7fe54df9316ab39fc53c22206e02731205..a5f3b67622b06012a7796dd46b1166aac2e0c503 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -477,6 +477,16 @@ END
 sub yellow_book () {
   my $o = general_book($yellow, [qw(7 12 19)]);
 
+  $o .= <<END;
+gsave
+  0.50 0.62 dc translate
+  0.65 dup scale
+  -26 0 translate
+  gsave 26 0 translate ${\ chip($anychip,0) } grestore
+  gsave 46 0 translate ${\ chip($pumpkin,0) } grestore
+grestore
+END
+
   my $exchip = sub {
     my ($that, $pips) = @_;
     <<END;
@@ -494,7 +504,7 @@ END
     my ($y, $pips, $content) = @_;
     <<END;
 gsave 
-  0.20 0.15 0.16 $y mul add dc translate
+  0.20 0.12 0.16 $y mul add dc translate
   0.60 dup scale
   gsave ${\ chip($yellow,$pips) } grestore
   8 -3 moveto (:) show