From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 17:41:16 +0000 (+0000)
Subject: done blue
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=a16420383697863c9b145b3a37e901472c092314;p=quacks.git

done blue
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 14b24ce..8b22a28 100755
--- 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;