diff options
| author | etienne | 2003-03-13 09:04:37 +0000 |
|---|---|---|
| committer | etienne | 2003-03-13 09:04:37 +0000 |
| commit | 87a833153a9ccb8736d54c2f7162b9d562cb0677 (patch) | |
| tree | 47f77b0fa6b7188149fce5727659781a2c9ac24b /Perl | |
| parent | 1becd155afbdfb6854cc637c017171b1328a161f (diff) | |
| download | tkzinc-87a833153a9ccb8736d54c2f7162b9d562cb0677.zip tkzinc-87a833153a9ccb8736d54c2f7162b9d562cb0677.tar.gz tkzinc-87a833153a9ccb8736d54c2f7162b9d562cb0677.tar.bz2 tkzinc-87a833153a9ccb8736d54c2f7162b9d562cb0677.tar.xz | |
Affichage de la bbox plus pr�cis.
Diffstat (limited to 'Perl')
| -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; } } } |