From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 6 Mar 2019 23:35:07 +0000 (+0000)
Subject: break out $somepage
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=fab86f5e490019441266fab31baf841da66876e2;p=pandemic-rising-tide.git

break out $somepage
---

diff --git a/generate-board b/generate-board
index 7f32b11..d79b355 100755
--- a/generate-board
+++ b/generate-board
@@ -313,13 +313,22 @@ sub computeboundings() {
       $p[3] - $max_printeredge ];
   };
   $bb{PrintableB} = $page2minprintable->($bb{PageB});
-  my $mt_offset = $bb{PrintableB}[3] - $max_printeredge;
-  $bb{PageMT} = [ 0, $mt_offset, $a4_h, $mt_offset + $a3_h ];
-  $bb{PrintableMT} = $page2minprintable->($bb{PageMT});
-  $bb{PrintableAll} = [
-		      @{ $bb{PrintableB} }[0..1],
-		      @{ $bb{PrintableMT} }[2..3],
-		     ];
+  my $somepage = sub {
+    my $id = shift @_;
+    $bb{"Page$id"} = [ @_ ];
+    $bb{"Printable$id"} = $page2minprintable->($bb{"Page$id"});
+  };
+  if ($maxpaper eq 'a3') {
+    my $mt_offset = $bb{PrintableB}[3] - $max_printeredge;
+    $somepage->('MT', 0, $mt_offset, $a4_h, $mt_offset + $a3_h );
+    $bb{PrintableAll} = [
+			 @{ $bb{PrintableB} }[0..1],
+			 @{ $bb{PrintableMT} }[2..3],
+			];
+  } elsif ($maxpaper eq 'a4') {
+  } else {
+    confess;
+  }
 }
 
 sub showboundings () {