From 84cd1e11295e3020ce801510d271ced0395b052d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 02:29:18 +0100
Subject: [PATCH] yellow: wip

---
 pumpkin-books.ps.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 43af2e7..a5f3b67 100755
--- 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
-- 
2.30.2