perl - 使用 Image::Magick 和 Perl 使背景透明

Question

我构建了一个使用Image::Magick绘制横幅的 Perl 脚本。

# ... some code
my $icon = Image::Magick->new();
$icon->Set(size => '16x16');
$icon->Transparent(color=>'#010101');
$icon->ReadImage($imagepath);
$full_image->Composite( # small icon 
    image=>$icon,
    compose=>'Over',
    opacity=>'99%',
    x=>'12',
    y=>'62',
);
# ... some code

通常图标背景（#010101）应该是透明的，但是失败了……知道为什么这不起作用吗？或者也许我可以用什么来代替这个透明方法？

编辑：两个图像都是PNG文件。Image::Magick版本是6.7。

Answer 1

我并没有真正使用这个模块，但我有几个想法:)

1. 您将 $full_image 的不透明度设置为 99%。您不希望以较小的值使图像透明吗？

2. 根据这个页面，你可以调用一个名为 opaque 的方法：

   不透明: color=>color name, fill=>color name, channel=>{All, Default, Alpha, Black, Blue, CMYK, Cyan, Gray, Green, Index, Magenta, Opacity, Red, RGB, Yellow}, 反转=>{对，错}

3. 我会先阅读图像，然后使颜色透明（以防万一）：

   $icon->ReadImage($imagepath);   
   $icon->Transparent(color=>'#010101');
   

4. （丑陋的黑客）在图像上运行转换作为系统命令，然后加载它：

   my $icon = Image::Magick->new();
   $icon->Set(size => '16x16');
   system("convert -transparent '#010101' not_transp.png transp.png");
   $icon->ReadImage('transp.png');
   $full_image->Composite( # small icon 
       image=>$icon,
       compose=>'Over',
       opacity=>'99%',
       x=>'12',
       y=>'62',
   );
   

Answer 2

您需要告诉 ImageMagick 使用 Alpha 通道。

在命令行上，这将是-alpha On.