diff options
Diffstat (limited to 'Perl')
| -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', }, }, ); |