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

wip yellow
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 887425f..024a59c 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -477,7 +477,49 @@ END
 sub yellow_book () {
   my $o = general_book($yellow, [qw(7 12 19)]);
 
-  $o .= <<END;
+  my $exchip = sub {
+    my ($that, $pips) = @_;
+    <<END;
+  gsave ${\ chip($that, $pips) } grestore
+END
+  };
+  my $exslash = sub {
+    <<END;
+    8 -5 moveto (/) show
+    20 0 translate
+END
+  };
+  
+  my $exchline = sub {
+    my ($y, $pips, $content) = @_;
+    <<END;
+gsave 
+  0.16 0.15 0.16 $y mul add dc translate
+  0.60 dup scale
+  gsave ${\ chip($yellow,$pips) } grestore
+  8 -3 moveto (:) show
+  3 0 translate
+  0.8 dup scale
+  21 0 translate
+$content
+grestore
+END
+  };
+
+  $o .= $exchline->(2, 1, <<END);
+  ${\ $exchip->($white,1) }  ${\ $exslash->() }
+  ${\ $exchip->($anychip,1) }  ${\ $exslash->() }
+  ${\ $exchip->($lotus,0) }
+END
+
+  $o .= $exchline->(1, 2, <<END);
+  ${\ $exchip->($white,2) }  ${\ $exslash->() }
+  ${\ $exchip->($anychip,2) }
+END
+
+  $o .= $exchline->(0, 4, <<END);
+  ${\ $exchip->($white,3) }  ${\ $exslash->() }
+  ${\ $exchip->($anychip,4) }
 END
 
   $o .= exposition(<<END);
@@ -535,11 +577,7 @@ $page_pre
 
 END
 
-print tile(
-	   yellow_book(),
-	  ) or die $! if 1;
-
-print "showpage\n" or die $!;
+print "gsave\n" or die $!;
 
 print tile(
 	   red_book(),
@@ -547,4 +585,5 @@ print tile(
 	   purple_book(),
 	   blue_book(),
 	   lotus_book(),
+	   yellow_book(),
 	  ) or die $! if 1;