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