From e9d9bd81a611db131d722c3d239fe15eb3ce50fe Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 24 Mar 2003 15:57:11 +0000
Subject: passage au gradient de Zinc v >>3.2.6h

---
 Perl/debug/LogoZinc.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm
index f47d147..7e25d35 100644
--- a/Perl/debug/LogoZinc.pm
+++ b/Perl/debug/LogoZinc.pm
@@ -72,10 +72,11 @@ my %builder = (-shape => {-geom => [['point', 0, 0],
 				    ['lineto', -20, 0],
 				    ],
 			  -linewidth => 3,
-			  -linecolor => '#000000:70',
-			  -fillcolor => '#ffffff:100 0 28|#66848c:100 96|#7192aa:100 100/270',
+			  -linecolor => '#000000;70',
+#			  -fillcolor => '#ffffff 0 |#66848c 96|#7192aa 100',
+			  -fillcolor => '=axial 270 |#ffffff 0 |#66848c 96|#7192aa 100',
 			  -shadow => {-dxy => [6, 6],
-				      -fillcolor => '#000000:18',
+				      -fillcolor => '#000000;18',
 				  },
 			  },
 
@@ -83,10 +84,11 @@ my %builder = (-shape => {-geom => [['point', 0, 0],
 			  -alpha => 72,
 			  -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(-66 -66',
+			  -linecolor => '#a10000;80',
+			  -fillcolor => '=radial -66 -66 |#ffffff;100 0|#f70000;100 48|#900000;100 80|#ab0000;100 100',
 			  -shadow => {-dxy => [5, 5],
-				      -fillcolor => '#770000:64 0|#770000:70 78|#770000:0 100[-50 -50',
+#				      -fillcolor => '#770000;64 0|#770000;70 78|#770000;0 100',
+				      -fillcolor => '=path -50 -50 |#770000;64 0|#770000;70 78|#770000;0 100',
 				  },
 		      },
 	       );
-- 
cgit v1.1