diff options
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'], ); } |