[Magick-bugs] Transparency not working PerlMagick

[Mark Overmeer]

Using PerlMagick 6.2.9-7 q8 in SuSE 10.0, transparency does not work.
The following script demonstrates this:

#!/usr/bin/perl

use warnings;
use strict;

use Image::Magick;

my $pict = Image::Magick->new(size => '300x300');
$pict->Read("xc:yellow");

my $color  = 'rgba(0,200,200,100)';
my $color2 = 'rgba(100,100,0,200)';

$pict->Draw
 ( primitive   => 'rectangle'
 , points      => "100,100 200,200"
 , stroke      => $color
 , strokewidth => 1
 , fill        => $color
 );

$pict->Draw
 ( primitive   => 'circle'
 , points      => "100,150 150,225"
 , stroke      => 'red'
 , fill        => 'none'
 , strokewidth => 3
 );

$pict->Draw
 ( primitive   => 'polyline'
 , points      => "10,10 40,40 10,80 200,200 10,50"
 , stroke      => $color2
 , strokewidth => 1
 , fill        => $color2
 );

my $err  = $pict->Write
 ( filename    => 'gif:output.gif'
 , compression => 'LZW'
 );

warn $err if $err;

-- 
Regards,
               MarkOv

------------------------------------------------------------------------
       Mark Overmeer MSc                                MARKOV Solutions
       Mark at Overmeer.net                          solutions at overmeer.net
http://Mark.Overmeer.net                   http://solutions.overmeer.net