From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 01:29:18 +0000 (+0100)
Subject: yellow: wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=84cd1e11295e3020ce801510d271ced0395b052d;p=quacks.git

yellow: wip
---

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