aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/debug/LogoZinc.pm14
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',
},
},
);