2010-12-21

PerlのGD

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

GD

さんぷるクリプト



#!/usr/bin/perl

use strict;
use warnings;

use GD;

my $dir = 'images';
my $width = 192;
my $height= 53;

my $image = new GD::Image($width, $height);

my $i3 = new GD::Image("$dir/layer3.gif");
$image->copy($i3, 0, 0, 0, 0, $width, $height);

my $i2 = new GD::Image("$dir/layer2.gif");
my $i1 = new GD::Image("$dir/layer1.gif");
$i2->copy($i1, 0, 0, 0, 0, $width, $height);
$image->copy($i2, 0, 0, 0, 0, $width, $height);

open(OUT, ">$dir/mix.gif");
binmode OUT;
print OUT $image->gif;
close(OUT);

exit;

0 件のコメント:

コメントを投稿