From 38391b08159b9158ef3c81fa187bec5a9d8f2903 Mon Sep 17 00:00:00 2001
From: ribet
Date: Mon, 8 Oct 2007 10:04:26 +0000
Subject: Fixing images with transparency, no more intermediate group created.
 The image was wrongly associated with it's group.

---
 src/SVG/SVG2zinc.pm | 7 +------
 1 file changed, 1 insertion(+), 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 = "";
-- 
cgit v1.1