From b5d7c88bfe1d60f33976b137913b5915722ae49f Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 20:44:30 +0000
Subject: [PATCH] fix number missing from individuals

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

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 93b8def..727645c 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -721,6 +721,11 @@ sub tile {
       $func =~ y/-/_/;
       $func = ${*::}{"book_$func"} // die "$func ?";
       my $data = $func->();
+      $data .= <<END;
+    /Courier-Bold findfont 6 scalefont setfont
+    -0.98 0.94 dc moveto
+    ($index_i) show
+END
       open F, ">book-$stem.ps" or die $!;
       print F $ps_framing, $data, "\nshowpage\n" or die $!;
       close F or die $!;
@@ -765,11 +770,6 @@ END
     }
     $o .= "\n".$d."\n";
     $o .= <<END;
-
-    /Courier-Bold findfont 6 scalefont setfont
-    -0.98 0.94 dc moveto
-    ($index) show
-
 grestore
 END
     $pos++;
-- 
2.30.2