From b61d0a7b82507da05fe575f8b2ddde43a545cd16 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 16 Dec 2002 13:40:25 +0000
Subject: Portage vers les nouveaux gradients circulaires

---
 Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'Perl')

diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
index 592a93b..19ceaa1 100644
--- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl
@@ -546,18 +546,12 @@ sub rectangle
 	my $dark_color;
 	$dark_color = $color_dark{$mode};
 	my $color = $color_bright{$mode};
-	my $center_ball_x = $xx+0.5*$boxsize_x;
-	my $center_ball_y = $yy+0.5*$boxsize_y;
-	my $center_for_ball_x = $xx+0.5*0.5*$boxsize_x;
-	my $center_for_ball_y = $yy+0.5*0.5*$boxsize_y;
-	my $corner_x = $xx+$boxsize_x;
-	my $corner_y = $yy+$boxsize_y;
 	# Adding new Zinc item : ball shadow
 	my $ombre=$zinc->add(
 			     'arc',$shadow_group,[$xx+10,$yy+10,$xx+$boxsize_x+10,$yy+$boxsize_y+10],
 			     -visible=>1,
 			     -filled=>1,
-			     -fillcolor => "black:100 0|black:80 20|black:10 100[$corner_x $corner_y", # color gradiant
+			     -fillcolor => "black:100 0|black:80 20|black:0 100[50 50", # color gradiant
 			     -linewidth => 0,
 			     -linecolor => 'yellow',
 			     -tags => ["ombre$x-$y"]);
@@ -569,7 +563,7 @@ sub rectangle
 			      'arc',$topgroup,[$xx,$yy,$xx+$boxsize_x,$yy+$boxsize_y],
 			      -visible=>1,
 			      -filled=>1,
-			      -fillcolor => "white:120|$color:80($center_for_ball_x $center_for_ball_y" ,
+			      -fillcolor => "white:90|$color:90(-20 -20" ,
 			      -linewidth => 1,
 			      -linecolor => "$color:80",
 			      -tags => ["$x-$y"]);
-- 
cgit v1.1