aboutsummaryrefslogtreecommitdiff
path: root/src/SVG
diff options
context:
space:
mode:
Diffstat (limited to 'src/SVG')
-rw-r--r--src/SVG/SVG2zinc.pm7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/SVG/SVG2zinc.pm b/src/SVG/SVG2zinc.pm
index 22d41bb..54c369c 100644
--- a/src/SVG/SVG2zinc.pm
+++ b/src/SVG/SVG2zinc.pm
@@ -968,16 +968,11 @@ sub image {
my @RES;
if (my $opacity = $attrs{'opacity'})
{
- # creating an intermediate group for managing the transparency
- # BUG: we could used the attribute -color := white:$opacity
$opacity = &convertOpacity ($opacity);
if ($opacity != 1)
{
- ## on cr?e un groupe pour g?rer la transparence
my $opacity = &float2int(100 * $opacity);
- my $newgroup = substr ($name, 0, -1) . "transparency'";
- push @RES , '$previous = '." -> add('group', $current_group, -alpha => $opacity, -tags => [ $newgroup ], -priority => 10);\n";
- $group = $newgroup;
+ $group .= ", -color => 'white;$opacity'";
}
}
my $res = "";