From 87a833153a9ccb8736d54c2f7162b9d562cb0677 Mon Sep 17 00:00:00 2001
From: etienne
Date: Thu, 13 Mar 2003 09:04:37 +0000
Subject: Affichage de la bbox plus pr�cis.

---
 Perl/Zinc/Debug.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Perl')

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;
 	    }
 	}
     }
-- 
cgit v1.1