colourful bb

diff --git a/generate-board b/generate-board
index d6b65d986ebe1823adf33d6fe506b2e84330cec2..9802ec7b3075dea15b5e783519829e9ae886af94 100755 (executable)
--- 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} };