From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 7 Mar 2019 00:09:02 +0000 (+0000)
Subject: wip pages
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=2f4d3553034632e51dfe47fe780391b19ab38e75;p=pandemic-rising-tide.git

wip pages
---

diff --git a/Makefile b/Makefile
index 0511413..49aa74a 100644
--- 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 8ac9ca0..ee608f9 100755
--- 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;
   }