wip pages

diff --git a/Makefile b/Makefile
index 0511413b5be7dd820784f74ffe7fb0ad10738900..49aa74a57ef83bac0d2c442496b188c966ef7018 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -20,12 +20,22 @@ export PERL_PERTURB_KEYS=0
 
 default: all
 
+# board-pMAXPAPER-bPAGE.ps
+#   where MAXPAPER is a3 for one a4 and one a3 page, PAGEs are B, MT
+#                     a4 for three a4 pages, PAGEs are B, M, T
+#                     a1 for one a1 page (with much whitespace), page is P
+#                     a1m like a1 but assumes pasting onto 4 x a4 boards
+#
+# boundings-* (one per MAXPAPER) shows various regions
+#   assuming 5.5mm unprintable border, see $max_printeredge
+
 BOARDFILES=                                            \
        $(addprefix maxprintable-,      a3)             \
        $(addprefix minprintable-,      a3)             \
-       $(addprefix boundings-,         a3 a4)          \
+       $(addprefix boundings-, pa3 pa4 pa1-bPageP                      ) \
        $(addprefix board-,     pa3-bPageB pa3-bPageMT                  \
-                               pa4-bPageB pa4-bPageM pa4-bPageT )      \
+                               pa4-bPageB pa4-bPageM pa4-bPageT        \
+                               pa1-bPageP                              ) \
        $(addprefix board-,             b mt)           \
        layout-test                                     \
        $(addprefix a4-test-,           b m t)          \
@@ -61,7 +71,7 @@ minprintable-%.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
        ./generate-board -Xp$*,bPrintableAll faces.plag input-graph $o
 
 boundings-%.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
-       ./generate-board -XBp$* faces.plag input-graph $o
+       ./generate-board -XB$* faces.plag input-graph $o
 
 board-%.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
        ./generate-board -X$* faces.plag input-graph $o

diff --git a/generate-board b/generate-board
index 8ac9ca0ba01097c5622f985e47465713bc2ac6d4..ee608f95d7172c25b02f2df81871e6d10797bb6a 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -31,6 +31,8 @@ our $mid;
 our $a4_w = 595;
 our $a4_h = 842;
 our $a3_h = 1190;
+our $a1_w = 1684;
+our $a1_h = 2384;
 
 our $max_printeredge = 5.50 * MM2PT;
 
@@ -304,7 +306,6 @@ sub face_path ($) {
 
 sub computeboundings() {
   $bb{Entire} = [ 0,0, $a4_h, $a4_w + $a3_h ];
-  $bb{PageB} = [ 0,0, $a4_h, $a4_w ];
   my $page2minprintable = sub {
     my (@p) = @{ $_[0] };
     [ $p[0] + $max_printeredge,
@@ -312,14 +313,17 @@ sub computeboundings() {
       $p[2] - $max_printeredge,
       $p[3] - $max_printeredge ];
   };
-  $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"});
   };
+  my $pageb_a4 = sub {
+    $somepage->('B', 0,0, $a4_h, $a4_w );
+  };
   if ($maxpaper eq 'a3') {
+    $pageb_a4->();
     my $mt_offset = $bb{PrintableB}[3] - $max_printeredge;
     $somepage->('MT', 0, $mt_offset, $a4_h, $mt_offset + $a3_h );
     $bb{PrintableAll} = [
@@ -327,6 +331,7 @@ sub computeboundings() {
                         @{ $bb{PrintableMT} }[2..3],
                        ];
   } elsif ($maxpaper eq 'a4') {
+    $pageb_a4->();
     my $m_offset = $bb{PrintableB}[3] - $max_printeredge;
     $somepage->('M', 0, $m_offset, $a4_h, $m_offset + $a4_w );
     my $t_offset = $bb{PrintableM}[3] - $max_printeredge;
@@ -335,6 +340,8 @@ sub computeboundings() {
                         @{ $bb{PrintableB} }[0..1],
                         @{ $bb{PrintableT} }[2..3],
                        ];
+  } elsif ($maxpaper eq 'a1') {
+    $somepage->('P', 0,0, $a1_w, $a1_h);
   } else {
     confess;
   }