aboutsummaryrefslogtreecommitdiff
path: root/Perl/Zinc/Debug.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Perl/Zinc/Debug.pm')
-rw-r--r--Perl/Zinc/Debug.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index 70dc1dd..b50acf0 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -1080,15 +1080,17 @@ sub showbbox {
# If item is visible, rectangle is drawm surround it.
# Else, a warning is displayed.
unless (&itemisoutside($zinc, @bbox)) {
- my $i = 0;
+ my $i = -2;
for ('white', 'blue', 'white') {
$zinc->add('rectangle', 1,
- [$bbox[0] - 5 - 2*$i, $bbox[1] - 5 - 2*$i,
- $bbox[2] + 5 + 2*$i, $bbox[3] + 5 + 2*$i],
+ #[$bbox[0] - 5 - 2*$i, $bbox[1] - 5 - 2*$i,
+ #$bbox[2] + 5 + 2*$i, $bbox[3] + 5 + 2*$i],
+ [$bbox[0] + $i, $bbox[1] + $i,
+ $bbox[2] - $i, $bbox[3] + $i],
-linecolor => $_,
-linewidth => 1,
-tags => ['zincdebugbbox']);
- $i++;
+ $i += 2;
}
}
}