PerlのImage::Imlib2

画像合成をする場合に使うライブラリのさんぷるクリプト

Imlib2：インストール方法は簡単なyum使ってるのでまぁ・・・参考程度で。

1. 取り合えずgifが作られればいいので、必要だというlibgifとlibungifを入れる。
   libungifにlibgifも入っているらしいので、libungifを入れる。


2. 本体入れる


3. Perlモジュール入れる


4. 使う

さんぷるクリプト

#!/usr/bin/perl

use strict;
use warnings;

use Image::Imlib2;

my $dir = 'images';

my $image = Image::Imlib2->load("$dir/layer3.gif");

my $i2 = Image::Imlib2->load("$dir/layer2.gif");
$image->blend($i2, 0, 0, 0, $image->width, $image->height, 0, 0, $image->width, $image->height);

my $i1 = Image::Imlib2->load("$dir/layer1.gif");
$image->blend($i1, 0, 0, 0, $image->width, $image->height, 0, 0, $image->width, $image->height);

$image->set_quality(100);
$image->image_set_format('png');
$image->save("$dir/mix.png");

exit;