如何使用 Perl 和 Perl 创建透明的真彩色 PNG GD？

Question

这似乎是一个微不足道的问题，但我尝试过的任何方法都无法使背景透明。

use strict;
use warnings;
use GD

GD::Image->trueColor(1);
my $im = new GD::Image(100, 100);

my $clear = $im->colorAllocateAlpha(255, 255, 255, 127);
my $black = $im->colorAllocateAlpha(0, 0, 0, 0);

$im->alphaBlending(0);
$im->filledRectangle(0, 0, 100, 100, $clear);

$im->alphaBlending(1);
$im->stringFT($black, "a-ttf-font.ttf", 12, 0, 20, 20, "x");

binmode STDOUT;
print $im->png;

感谢您的任何指导。

Answer 1

您使用的是$im->saveAlpha(1)吗？否则，alpha 信息仅在构建图像时有用。保存的图像不会是透明的。

一个快速而肮脏的方法可能不足以满足您的目的，那就是忘记 alpha 通道并使用 GD::Image::transparent 方法。