done blue

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 14b24ce7ded18ff56799a8e63c8c97a58a634abb..8b22a28ffd4b10e6ada7ade6ffff941651157fcc 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -75,7 +75,7 @@ sub exposition ($) {
   my $o = <<END;
     /Times-Roman findfont $fontsz scalefont setfont $black
 END
-  chomp $text;
+  $text =~ s/\n$//;
   my @lines = split /\n/, $text;
   foreach my $y (0..$#lines) {
     my $l = $lines[$y];
@@ -240,6 +240,13 @@ gsave
   21 0 translate
 $content
 grestore
+
+gsave
+  0.50 0.65 dc translate
+  0.65 dup scale
+  gsave -10 0 translate ${\ chip($pumpkin,1) } grestore
+  arrow
+grestore
 END
   };
 
@@ -264,6 +271,7 @@ END
 If the previous chip placed was a pumpkin,
 you may exchange it as follows:
 
+ 
 END
 
   $o;