diff options
author | mertz | 2002-12-20 14:54:50 +0000 |
---|---|---|
committer | mertz | 2002-12-20 14:54:50 +0000 |
commit | 343aefe51bec10fd8e68aa8e4dce21b1c7f9682a (patch) | |
tree | a832ad8274a9a399821dbeb2ceadb40209d03c03 /Perl/debug | |
parent | cd59603b2b55cf5f7264db5226f78a53ecf1dee9 (diff) | |
download | tkzinc-343aefe51bec10fd8e68aa8e4dce21b1c7f9682a.zip tkzinc-343aefe51bec10fd8e68aa8e4dce21b1c7f9682a.tar.gz tkzinc-343aefe51bec10fd8e68aa8e4dce21b1c7f9682a.tar.bz2 tkzinc-343aefe51bec10fd8e68aa8e4dce21b1c7f9682a.tar.xz |
passage � la nouvelle forme de gradient.
Diffstat (limited to 'Perl/debug')
-rw-r--r-- | Perl/debug/LogoZinc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm index 2f2dc7b..f47d147 100644 --- a/Perl/debug/LogoZinc.pm +++ b/Perl/debug/LogoZinc.pm @@ -84,9 +84,9 @@ my %builder = (-shape => {-geom => [['point', 0, 0], -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(-7 -6', + -fillcolor => '#ffffff:100 0|#f70000:100 48|#900000:100 80|#ab0000:100 100(-66 -66', -shadow => {-dxy => [5, 5], - -fillcolor => '#770000:64 0|#770000:70 78|#770000:0 100[0 0', + -fillcolor => '#770000:64 0|#770000:70 78|#770000:0 100[-50 -50', }, }, ); |