rename `regions' for printer bbxos to boundings etc.

oops, should never have reused `region'

diff --git a/.gitignore b/.gitignore
index 895aae54da04639ca0b14c0e8e10b292fd0f32e9..b8d1b37873c524d2b495cd09a61573ee40b52fd4 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -7,6 +7,7 @@ faces.plag
 *.tmp
 maxprintable.ps
 minprintable.ps
+boundings.ps
 layout-test.ps
 layout-test-?.ps
 a4-test-?.ps

diff --git a/Makefile b/Makefile
index 736ee0d916e936833445d73357d725ada26a52c1..d590e4d14dbb6b9aa11904dce2c51cad96679ead 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -17,7 +17,7 @@ USE_PLAG_RELEASE := $(shell ./find-plag \
 
 default: all
 
-all: maxprintable.ps minprintable.ps regions.ps layout-test.ps \
+all: maxprintable.ps minprintable.ps boundings.ps layout-test.ps \
        $(addprefix a4-test-,$(addsuffix .ps, b m t)) \
        $(addprefix layout-test-,$(addsuffix .ps, b m t))
 
@@ -42,10 +42,10 @@ maxprintable.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
        ./generate-board faces.plag input-graph $o
 
 minprintable.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
-       ./generate-board -XrPrintableAll faces.plag input-graph $o
+       ./generate-board -XbPrintableAll faces.plag input-graph $o
 
-regions.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
-       ./generate-board -XR faces.plag input-graph $o
+boundings.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
+       ./generate-board -XB faces.plag input-graph $o
 
 layout-test.ps: maxprintable.ps Makefile Parse.pm
        ./generate-board -XW faces.plag input-graph $o

diff --git a/generate-board b/generate-board
index b1fb74340c491f67af20fd108b567adf56051bf5..69b31a6c725b28253d88cec744236be05423d3f0 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -17,10 +17,10 @@ BEGIN { unshift @INC, qw(.); }
 use Parse;
 
 our $xopts = '';
-our $region = 'Entire';
+our $bounding = 'Entire';
 our $facesf;
 our %vxname2pos; # $vxname2pos{VXNAME} = Math::GSL::Vector
-our %r; # $r{PrintRegion...}[0..3] = points
+our %bb; # $r{Bounding...}[0..3] = points
 
 sub TAU { M_PI * 2.0; }
 sub MM2PT { 72.0 / 25.4; }
@@ -314,9 +314,9 @@ sub pscolour ($;$) {
   return $r;
 }
 
-sub regions() {
-  $r{Entire} = [ 0,0, $a4_h, $a4_w + $a3_h ];
-  $r{PageB} = [ 0,0, $a4_h, $a4_w ];
+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,
@@ -324,26 +324,27 @@ sub regions() {
       $p[2] - $max_printeredge,
       $p[3] - $max_printeredge ];
   };
-  $r{PrintableB} = $page2minprintable->($r{PageB});
-  my $mt_offset = $r{PrintableB}[3] - $max_printeredge;
-  $r{PageMT} = [ 0, $mt_offset, $a4_h, $mt_offset + $a3_h ];
-  $r{PrintableMT} = $page2minprintable->($r{PageMT});
-  $r{PrintableAll} = [
-                     @{ $r{PrintableB} }[0..1],
-                     @{ $r{PrintableMT} }[2..3],
+  $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],
                     ];
 }
 
-sub showregions () {
-  return unless $xopts =~ m/R/;
+sub showboundings () {
+  return unless $xopts =~ m/B/;
   o("  grestore gsave\n");
   o("  0 setgray");
   my $i = 0;
   my $on = 2;
   my $off = 9;
-  foreach my $rname (sort keys %r) {
+  foreach my $bname (sort keys %bb) {
+    o("    % $bname\n");
     o("    [ $on $off ] ".($i * ($on+$off))," setdash newpath\n");
-    my @p = @{ $r{$rname} };
+    my @p = @{ $bb{$bname} };
     o("    $p[0] $p[0] moveto\n");
     o("    $p[2] $p[0] lineto\n");
     o("    $p[2] $p[3] lineto\n");
@@ -363,10 +364,10 @@ sub o_amble (@) {
 }
       
 sub preamble() {
-  my $r = $r{$region}; confess $region unless $r;
+  my $bb = $bb{$bounding}; confess $bounding unless $bb;
   o_amble(<<END);
 &!PS-Adobe-3.0
-&&BoundingBox @$r
+&&BoundingBox @$bb
 &&Pages: 1
 &&EndComments
 &&BeginProlog
@@ -811,7 +812,7 @@ sub play_hint () {
 #----- main program -----
 
 $xopts = shift @ARGV if $ARGV[0] =~ s/^-X//;
-$region = $1 if $xopts =~ s/r(\w+)//;
+$bounding = $1 if $xopts =~ s/b(\w+)//;
 
 ($facesf, @ARGV) = @ARGV or die;
 parse_input_graph();
@@ -821,7 +822,7 @@ calculate_centres();
 transform_coordinates();
 adjust_nz();
 
-regions();
+computeboundings();
 preamble();
 fill_faces();
 edge_faces();
@@ -831,7 +832,7 @@ decks();
 sea_track();
 hs_initial();
 play_hint();
-showregions();
+showboundings();
 postamble();
 
 print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};