put images in $ps_framing nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index b3520a02aa6ad6dfd20c539fe0018033240f377a..7dbc0dd119672913d676aa04c22d9671b747ac42 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -729,7 +729,6 @@ $page_pre
 } def
 
 END
-print $ps_framing or die $!;
 
 sub def_image ($$) {
   my ($ncomps, $name) = @_;
@@ -753,15 +752,15 @@ sub def_image ($$) {
   my $sz = $w/17.0;
   my $hsz = $sz/2;
 
-  print <<END, '{<' or die $!;
+  $ps_framing .= <<END . '{<';
 /${name}_image {
   $w $h 8 
   [ -$sz 0 0  -$sz  $w 2 div  $h 2 div  ]
 END
   for (my $i=0; $i< $w*$h*$ncomps; $i++) {
-    printf "%02x", shift @d or die $!;
+    $ps_framing .= sprintf "%02x", shift @d;
   }
-  print <<END or die $!;
+  $ps_framing .= <<END;
 >} $oper
 } def
 END
@@ -771,6 +770,8 @@ def_image(1, "bag");
 def_image(1, "pot");
 def_image(3, "droplet");
 
+print $ps_framing or die $!;
+
 print "gsave\n" or die $!;
 
 our @tiles;