From 3857961bbe8a49d179bced9f56afdad1ae90be16 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 20:12:23 +0000
Subject: [PATCH] put images in $ps_framing nfc

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 pumpkin-books.ps.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index b3520a0..7dbc0dd 100755
--- 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;
-- 
2.30.2