chiark
/
gitweb
/
~ian
/
pandemic-rising-tide.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f337775
)
colourful bb
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 4 Mar 2019 02:34:19 +0000
(
02:34
+0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Mon, 4 Mar 2019 02:34:19 +0000
(
02:34
+0000)
generate-board
patch
|
blob
|
history
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} };