在用PerlMagick读取的图像中添加一个alpha通道

Question

我看到的图像中没有alpha通道：

my $image = Image::Magick->new;
$image->Read("./noalpha.png");

然后尝试将某些像素设置为不同的颜色/alpha值：

my @color = ( 0.2, 0.4, 0.6, $alpha );
$image->SetPixel( x=>$X, y=>$Y, channel=>'RGBA', normalize=>'True', color => \@color);

但是，除非开始的图像文件已经有了alpha通道，否则我编写的文件：

$image->Write('out.png');

不包含阿尔法通道。

我一直在阅读PerlMagick文档，但我一定不是在寻找正确的东西。有没有办法向我的$image对象添加一个alpha通道？

我是否需要创建一个新的图像对象，对原始图像进行调整，并将所有内容都重写到该图像中？

Answer 1

alpha通道的存在是图像的一个属性，需要打开：

$image->Set(alpha => 'On');