From 1b3bcc1d323f5950fdf07c1a022b37430a1029a2 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:34:19 +0000
Subject: [PATCH] colourful bb

---
 generate-board | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/generate-board b/generate-board
index d6b65d9..9802ec7 100755
--- a/generate-board
+++ b/generate-board
@@ -337,11 +337,14 @@ sub computeboundings() {
 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 $bname (sort keys %bb) {
+    o(sprintf "   1 %d %d setrgbcolor\n",
+      !!($bname =~ m/^Page/),
+      !!($bname =~ m/B$/),
+     );
     o("    % $bname\n");
     o("    [ $on $off ] ".($i * ($on+$off))," setdash newpath\n");
     my @p = @{ $bb{$bname} };
-- 
2.30.2