From f7ae975cd1a1d5c709f51e0ea9463e278cb97e1c Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:12:23 +0000
Subject: [PATCH] wip printregions

---
 Makefile       |  5 ++++-
 generate-board | 20 ++++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 1e964b6..736ee0d 100644
--- 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 0594577..b1fb743 100755
--- 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'};
-- 
2.30.2