perl - 将 Alpha channel 添加到使用 PerlMagick 读取的图像中

Question

我正在读取没有 Alpha channel 的图像:

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 channel ，否则我写入的文件:

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

不包含 Alpha channel 。

我一直在阅读 PerlMagick 文档，但我一定没有找到正确的东西。有没有办法向我的 $image 对象添加 Alpha channel ？

我是否需要创建一个具有原始图像大小的新图像对象并将所有内容重写到该对象？

Answer 1

Alpha channel 的存在是图像的一个属性，需要开启:

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