diff options
| author | mertz | 2002-12-16 13:40:25 +0000 |
|---|---|---|
| committer | mertz | 2002-12-16 13:40:25 +0000 |
| commit | b61d0a7b82507da05fe575f8b2ddde43a545cd16 (patch) | |
| tree | c22a098cf5ae2ebafbdb2c45652803f536be4765 /Perl/demos/Tk | |
| parent | 94cfb464ec1a635b390ac54607e49bcf954025ba (diff) | |
| download | tkzinc-b61d0a7b82507da05fe575f8b2ddde43a545cd16.zip tkzinc-b61d0a7b82507da05fe575f8b2ddde43a545cd16.tar.gz tkzinc-b61d0a7b82507da05fe575f8b2ddde43a545cd16.tar.bz2 tkzinc-b61d0a7b82507da05fe575f8b2ddde43a545cd16.tar.xz | |
Portage vers les nouveaux gradients circulaires
Diffstat (limited to 'Perl/demos/Tk')
| -rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 10 |
1 files changed, 2 insertions, 8 deletions
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"]); |