wip printregions

diff --git a/Makefile b/Makefile
index 1e964b66591c8c7fcd975261e8883d3bda4fb192..736ee0d916e936833445d73357d725ada26a52c1 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -17,7 +17,7 @@ USE_PLAG_RELEASE := $(shell ./find-plag \
 
 default: all
 
-all: maxprintable.ps minprintable.ps layout-test.ps \
+all: maxprintable.ps minprintable.ps regions.ps layout-test.ps \
        $(addprefix a4-test-,$(addsuffix .ps, b m t)) \
        $(addprefix layout-test-,$(addsuffix .ps, b m t))
 
@@ -44,6 +44,9 @@ maxprintable.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
 minprintable.ps: generate-board faces.plag input-graph misc-data.pl Parse.pm
        ./generate-board -XrPrintableAll 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
+
 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 05945771051e13ffbeeaac3551e4950da9431c82..b1fb74340c491f67af20fd108b567adf56051bf5 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -334,6 +334,25 @@ sub regions() {
                     ];
 }
 
+sub showregions () {
+  return unless $xopts =~ m/R/;
+  o("  grestore gsave\n");
+  o("  0 setgray");
+  my $i = 0;
+  my $on = 2;
+  my $off = 9;
+  foreach my $rname (sort keys %r) {
+    o("    [ $on $off ] ".($i * ($on+$off))," setdash newpath\n");
+    my @p = @{ $r{$rname} };
+    o("    $p[0] $p[0] moveto\n");
+    o("    $p[2] $p[0] lineto\n");
+    o("    $p[2] $p[3] lineto\n");
+    o("    $p[0] $p[3] lineto\n");
+    o("    closepath stroke\n");
+    $i++;
+  }
+}
+
 sub o_amble (@) {
   # CPerl-mode does a really awful thing with %s in the preamble
   # and postamble, causing constant useless flashing
@@ -812,6 +831,7 @@ decks();
 sea_track();
 hs_initial();
 play_hint();
+showregions();
 postamble();
 
 print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};