From 343aefe51bec10fd8e68aa8e4dce21b1c7f9682a Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 20 Dec 2002 14:54:50 +0000
Subject: passage � la nouvelle forme de gradient.

---
 Perl/debug/LogoZinc.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm
index 2f2dc7b..f47d147 100644
--- a/Perl/debug/LogoZinc.pm
+++ b/Perl/debug/LogoZinc.pm
@@ -84,9 +84,9 @@ my %builder = (-shape => {-geom => [['point', 0, 0],
 			  -geom => [['arc', 20, 20, 0, 360, 5]],
 			  -linewidth => 1,
 			  -linecolor => '#a10000:80',
-			  -fillcolor => '#ffffff:100 0|#f70000:100 48|#900000:100 80|#ab0000:100 100(-7 -6',
+			  -fillcolor => '#ffffff:100 0|#f70000:100 48|#900000:100 80|#ab0000:100 100(-66 -66',
 			  -shadow => {-dxy => [5, 5],
-				      -fillcolor => '#770000:64 0|#770000:70 78|#770000:0 100[0 0',
+				      -fillcolor => '#770000:64 0|#770000:70 78|#770000:0 100[-50 -50',
 				  },
 		      },
 	       );
-- 
cgit v1.1