From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 3 Dec 2020 18:23:24 +0000 (+0000)
Subject: numbering
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=2706fb4c6e2036839b0aa67fbe4f48bc2d6861a6;p=quacks.git

numbering
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c1d962c..658a279 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -354,6 +354,7 @@ END
 }
 
 sub tile {
+  my $index = scalar @_;
   my $pos = 0;
   my $o = '';
   my $showpage = sub {
@@ -361,7 +362,7 @@ sub tile {
 showpage
 END
   };
-  while (my $d = shift @_) {
+  while (my $d = pop @_) {
     if ($pos >= 5) {
       $pos -= 5;
       $showpage->();
@@ -383,9 +384,15 @@ END
     }
     $o .= "\n".$d."\n";
     $o .= <<END;
+
+    /Courier-Bold findfont 6 scalefont setfont
+    -0.98 0.94 dc moveto
+    ($index) show
+
 grestore
 END
     $pos++;
+    $index--;
   }
   $showpage->();
   $o;
@@ -439,8 +446,8 @@ print <<END or die $!;
 END
 
 print tile(
-	   green_book(),
 	   red_book(),
+	   green_book(),
 	   purple_book(),
 	   blue_book(),
 	  ) or die $! if 1;