我有两个图像(第一个是大的,第二个是小的,透明的)。我需要在第一个图像的中心添加第二个图像,并将结果保存为一个新文件。
如何使用Perl Image::Magick实现?
use strict;
use warnings;
use Image::Magick;
my $big = Image::Magick->new;
$big->Read(filename => 'big.png');
my $little = Image::Magick->new;
$little->Read(filename => 'little.png');
$big->Composite(image => $little, qw(compose SrcAtop gravity Center));
$big->Write(filename => 'out.png');