From 4df978ba1bc59ed4074f33dd270dab2056c9fd0f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 18:36:31 +0000
Subject: [PATCH] lotus

---
 pumpkin-books.ps.pl | 50 ++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 45 insertions(+), 5 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index a602fa7..8992c52 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -310,14 +310,54 @@ sub lotus_book () {
 
   $o .= <<END;
 /Times-Bold findfont 15 scalefont setfont $black
+
+gsave
+  0.36 0.38 dc translate
+  0.80 dup scale
+  gsave ${\ chip($lotus,0) } grestore
+
+  9 -4 moveto (=) show
+grestore
+gsave
+  0.20 0.15 dc translate
+  0.80 dup scale
+  gsave ${\ chip($pumpkin,0) } grestore
+  chip 0.5 mul 0 translate
+  gsave ${\ chip($pumpkin,0) } grestore
+
+  10 -4.5 moveto (... +1) show
+
+grestore
 END
+<<END;
+gsave
+  0.16 0.20  dc translate
+  0.60 dup scale
 
-  my $exchip = sub {
-    my ($that, $pips) = @_;
-    <<END;
-  gsave ${\ chip($that, $pips) } grestore
+  gsave ${\ veepsspot(chip($pumpkin, 0)) } grestore
+  gsave 0 20 translate ${\ chip($purple, 1) } grestore
+  27 0 translate
+grestore
+
+gsave
+/Times-Roman findfont
+  32 scalefont setfont
+  0.48 0.14 dc moveto (}) show
+grestore
+
+gsave
+   0.83 0.25 dc translate
+   0.85 dup scale
+   ${\ chip(['0 0 0 0.5', ''], 0) }
+grestore
+
+gsave
+  0.72 0.22 dc translate
+  0.50 dup scale
+   $black 0 0 moveto (?+?) show
+grestore
 END
-  };
+
 
   $o .= exposition(<<END);
 The value of this chip is
-- 
2.30.2