Perl Image :: Magick：画像を他の画像の上に置きます。

Question

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