a4

[pandemic-rising-tide.git] / generate-board

diff --git a/generate-board b/generate-board
index 83bb4999d40361396172be94988ea1cec90c18ec..8ac9ca0ba01097c5622f985e47465713bc2ac6d4 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -315,6 +315,7 @@ sub computeboundings() {
   $bb{PrintableB} = $page2minprintable->($bb{PageB});
   my $somepage = sub {
     my $id = shift @_;
+    print STDERR "defining page Page$id\n";
     $bb{"Page$id"} = [ @_ ];
     $bb{"Printable$id"} = $page2minprintable->($bb{"Page$id"});
   };
@@ -330,6 +331,10 @@ sub computeboundings() {
     $somepage->('M', 0, $m_offset, $a4_h, $m_offset + $a4_w );
     my $t_offset = $bb{PrintableM}[3] - $max_printeredge;
     $somepage->('T', 0, $t_offset, $a4_h, $t_offset + $a4_w );
+    $bb{PrintableAll} = [
+                        @{ $bb{PrintableB} }[0..1],
+                        @{ $bb{PrintableT} }[2..3],
+                       ];
   } else {
     confess;
   }