diff options
| author | mertz | 2003-03-24 15:57:11 +0000 |
|---|---|---|
| committer | mertz | 2003-03-24 15:57:11 +0000 |
| commit | e9d9bd81a611db131d722c3d239fe15eb3ce50fe (patch) | |
| tree | 15daa663b77a2803ac3ccec127489071bd391430 /Perl/debug | |
| parent | 2cb6f9f985d7b6b3f2ab21a4a33ca190f7bbf6b9 (diff) | |
| download | tkzinc-e9d9bd81a611db131d722c3d239fe15eb3ce50fe.zip tkzinc-e9d9bd81a611db131d722c3d239fe15eb3ce50fe.tar.gz tkzinc-e9d9bd81a611db131d722c3d239fe15eb3ce50fe.tar.bz2 tkzinc-e9d9bd81a611db131d722c3d239fe15eb3ce50fe.tar.xz | |
passage au gradient de Zinc v >>3.2.6h
Diffstat (limited to 'Perl/debug')
| -rw-r--r-- | Perl/debug/LogoZinc.pm | 14 |
1 files 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', }, }, ); |