diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 10 |
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; } } } |