From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 6 Nov 2021 20:44:30 +0000 (+0000)
Subject: fix number missing from individuals
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=b5d7c88bfe1d60f33976b137913b5915722ae49f;p=quacks.git

fix number missing from individuals

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

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++;