From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 18:27:40 +0000 (+0000)
Subject: wip lotus
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e9ea19e123c13c5784216994cce8e23d956f5e72;p=quacks.git

wip lotus
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 658a279..a602fa7 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -11,6 +11,7 @@ my $blue = ["0.6 0.6 0 0", "0 0 0 0"];
 my $yellow = ["0 0 1 0", "0 0 0 1"];
 my $moth = ["0 0 0 1", "0 0 0 0"];
 my $purple = ["0 1 0 0", "0 0 0 1"];
+my $lotus = ["1 0 0.6 0", "0 1 1 0"];
 
 sub chip ($$) {
   my ($cary, $pips) = @_; # put in a gsave translate
@@ -304,6 +305,29 @@ END
   $o;
 }
 
+sub lotus_book () {
+  my $o = general_book($lotus, [8, 0]);
+
+  $o .= <<END;
+/Times-Bold findfont 15 scalefont setfont $black
+END
+
+  my $exchip = sub {
+    my ($that, $pips) = @_;
+    <<END;
+  gsave ${\ chip($that, $pips) } grestore
+END
+  };
+
+  $o .= exposition(<<END);
+The value of this chip is
+1 higher than the number of pumpkins
+previously placed in the pot (but max.4)
+END
+
+  $o;
+}
+
 sub purple_book () {
   my $o = general_book($purple, [10, 1]);
 
@@ -450,4 +474,5 @@ print tile(
 	   green_book(),
 	   purple_book(),
 	   blue_book(),
+	   lotus_book(),
 	  ) or die $! if 1;