From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Mar 2019 02:34:19 +0000 (+0000)
Subject: colourful bb
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=1b3bcc1d323f5950fdf07c1a022b37430a1029a2;p=pandemic-rising-tide.git

colourful bb
---

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} };