perl - Perl Image::Magick: 画像を他の画像の上に配置する

Question

2 つの画像があります (最初の画像は大きく、2 番目の画像は小さく透明です)。最初の画像の中央に 2 番目の画像を追加し、結果を新しいファイルとして保存する必要があります。

Perl Image::Magickでそれを行う方法は?

Answer 1

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');