perl - 使用 GD 库裁剪图像

Question

我在我的 Perl 脚本中使用 GD 库，它允许我绘制一个真正的字体文本。因为一开始我不知道确切的尺寸，所以我设置了

my $i = new GD::Image(3000, 3000);

然后我画我的文字

my $black = $i->colorAllocate(0, 0, 0);
my @b = $i->stringFT($black, './ttf/cour.ttf', 12, 0, 0, 0, "\n$text");

其中@b包含我的作物数据。

我希望执行这样的事情（语法不正确）：

$i->crop(0, 0, $b[2], $b[3]);

...但是没有这样的crop功能可用。

如何裁剪图像？有一些已知的解决方法吗？

Answer 1

通常，您会使用“复制”方法GD将所选数据从一个图像移动到一个新图像中。

或者，如果您真正需要的只是计算用 绘制的字符串的宽度和高度GD，请查看GD::Text。