From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 22:56:56 +0000 (+0100)
Subject: wip numbering
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=5ef05b0fb86b064baff9aa59984cae431a4163e0;p=quacks.git

wip numbering
---

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index c3f8ae8..3be2e00 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -454,7 +454,15 @@ END
 }
 
 sub tile {
-  my $index = scalar @_;
+  my @tiles;
+  my $index_i = 1;
+  foreach my $d (@_) {
+    foreach my $dd (ref $d ? @$d : $d) {
+      push @tiles, [ $dd, $index_i ];
+    }
+    $index_i++;
+  }      
+
   my $pos = 0;
   my $o = '';
   my $showpage = sub {
@@ -463,7 +471,10 @@ showpage
 $page_pre
 END
   };
-  while (my $d = pop @_) {
+
+  while (my $di = pop @tiles) {
+    my ($d, $index) = @$di;
+
     if ($pos >= 5) {
       $pos -= 5;
       $showpage->();
@@ -493,7 +504,6 @@ END
 grestore
 END
     $pos++;
-    $index--;
   }
   $showpage->();
   $o;
@@ -709,7 +719,6 @@ print tile(
 	   blue_book(),
 	   lotus_book(),
 	   yellow_book(),
-	   black_book_pair(),
-	   black_book_more(),
+	   [black_book_pair(), black_book_more()],
 	  ) or die $! if 1;