GIF画像連結ライブラリ（perl）

さかさくずかご > 趣味 >

gifplus.pl

管理人が趣味で作ったperl用のGIF画像連結ライブラリです。
複数のGIF画像を、横（または縦）方向に連結します。
とほほさんのgifcat.plがアニメーションGIFを生成するのに対し、
gifplus.plは静止GIFを生成します。
gifplus.zip　ver 0.3　（2010/12/30）

更新履歴

日付 ﾊﾞｰｼﾞｮﾝ 内容
2010/12/30 var 0.3 ・背景画像の合成機能を追加しました。
2010/3/25 var 0.2 ・デコード処理のバグを修正しました。
・カラーテーブルの最適化処理を追加しました。
・画像サイズが異なっていても連結出きるようになりました。
2010/3/6 var 0.1 ・ver0.1を公開しました。

基本的な使い方

連結画像をファイルに出力する場合（図1）
図1
require "gifplus.pl";
open(OUT_FH, ">出力ファイル名");
binmode(OUT_FH);
print OUT_FH 関数
close(OUT_FH);
CGIなどでブラウザに出力する場合（図2）
図2
require "gifplus.pl";
binmode(STDOUT);
print STDOUT 関数
関数の部分は連結したい方向により異なります。
　
横方向に連結する場合 GifPlus::yoko('ファイル名1', 'ファイル名2', 'ファイル名3');
縦方向に連結する場合 GifPlus::tate('ファイル名1', 'ファイル名2', 'ファイル名3');
　
を関数の部分に入れて下さい。
連結するファイルの数に制限はありません。
　

背景画像の合成

関数を実行する以前の行に図3の様なソースを書き加える事で、 透過指定されている領域に別の画像を合成する事が出来ます。
図3
GifPlus::set_bgimage('背景画像のファイル名');
また、下図の行を加える事で、一度指定した背景画像をリセットできます。
図4
GifPlus::clear_bgimage();

注意

使うときは自己責任でお願いします。
バグを見つけた方は報告などしてくれると嬉しいです。