diff options
author | mertz | 2003-03-24 15:00:07 +0000 |
---|---|---|
committer | mertz | 2003-03-24 15:00:07 +0000 |
commit | 0b183e91ae36b98f805211b34f099962af875458 (patch) | |
tree | 9aea98404103535d78e876c3c731c5bd0ec7783c /Perl/demos/Tk/demos/zinc_lib/Zetris.pl | |
parent | ba28c4b7fc7f45834c8131982d49f4872f7940e7 (diff) | |
download | tkzinc-0b183e91ae36b98f805211b34f099962af875458.zip tkzinc-0b183e91ae36b98f805211b34f099962af875458.tar.gz tkzinc-0b183e91ae36b98f805211b34f099962af875458.tar.bz2 tkzinc-0b183e91ae36b98f805211b34f099962af875458.tar.xz |
passage au nouveau format de gradient (>> 3.2.6h)
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/Zetris.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/Zetris.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl index 4c9c5e6..bd0ce94 100644 --- a/Perl/demos/Tk/demos/zinc_lib/Zetris.pl +++ b/Perl/demos/Tk/demos/zinc_lib/Zetris.pl @@ -249,7 +249,7 @@ $tetris->add('rectangle', [0, 0,$step_x*($width-2) ,$step_y*($height-1)] , -filled => 1, -linewidth => 0, - -fillcolor => "black:40|gray80:60/90", + -fillcolor => "=axial 90 |black;40|gray80;60", -visible => 1); my $group = $tetris->add('group', 1, ); @@ -551,7 +551,7 @@ sub rectangle '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:0 100[50 50", # color gradiant + -fillcolor => "=path 50 50 |black;100 0|black;80 20|black;0 100", # color gradiant -linewidth => 0, -linecolor => 'yellow', -tags => ["ombre$x-$y"]); @@ -563,9 +563,9 @@ sub rectangle 'arc',$topgroup,[$xx,$yy,$xx+$boxsize_x,$yy+$boxsize_y], -visible=>1, -filled=>1, - -fillcolor => "white:90|$color:90(-20 -20" , + -fillcolor => "=radial -20 -20 |white;90|$color;90" , -linewidth => 1, - -linecolor => "$color:80", + -linecolor => "$color;80", -tags => ["$x-$y"]); } } @@ -669,7 +669,7 @@ sub delete_line ('rectangle',1, [$xx, $yy, $xx+$boxsize_x, $yy+$boxsize_y], -filled => 1, - -fillcolor => 'orange:50', + -fillcolor => 'orange;50', -tags => ['delline'], ); } |