wip prep paper sizes

diff --git a/generate-board b/generate-board
index db7bd59b6e8bca2bd82aa52c7f9aa26b7c700032..f35a6991af93eb72ee309da021887cdb715bbb9b 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -21,6 +21,7 @@ our $bounding = 'Entire';
 our $facesf;
 our %vxname2pos; # $vxname2pos{VXNAME} = Math::GSL::Vector
 our %bb; # $r{Bounding...}[0..3] = points
+our $maxpaper = 'a3';
 
 sub TAU { M_PI * 2.0; }
 sub MM2PT { 72.0 / 25.4; }
@@ -862,6 +863,8 @@ sub play_hint () {
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
 $bounding = $1 if $xopts =~ s/b(\w+)//;
+$maxpaper = $1 if $xopts =~ s/p(\w+)//;
+$maxpaper =~ m/^a[134]$/ or confess;
 
 ($facesf, @ARGV) = @ARGV or die;
 parse_input_graph();