lotus

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index a602fa72efab6a782601817ca3f77af79a0c456b..8992c52b037276ee118f08bf178022b7ec4b0b8d 100755 (executable)
--- 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