gifcat.pl: GIFファイル連結ライブラリ Ver1.61

Copyright (C) 1997,2002 杜甫々

著作権は放棄しませんが、個人、商用を問わず、自由に使用・改造・再配布可能です。

複数のGIF画像を、アニメGIFの機能をもちいて横方向に連結する、Perlライブラリです。0.gif 1.gif 2.gif などの数字画像を横方向にならべてカウンター画像を生成する際などに用いてください。

http://www.tohoho-web.com/wwwsoft.htm

require "gifcat.pl";
open(OUT, "> out.gif");
binmode(OUT);    # MS-DOS や Windows の場合に必要です。
print OUT &gifcat'gifcat("0.gif", "1.gif", "2.gif");
close(OUT);

require "gifcat.pl";
&gifcat'gifprint("0.gif");

• アニメGIF同士を連結することはできません。
• アニメGIF対応のブラウザでなければ、最初の画像しか表示されません。
• 高さの異なるGIFファイルは連結できません。
• Netscape 6.* では、一番最初の桁がうまく表示できないことがあります。
  → 一番最初の画像の大きさが全体と異なる場合に表示がおかしくなるという、ブラウザ側のバグが原因だと推測しています。
  → Ver1.61で、Netscape 6.*のバグ回避のコードを入れました。

本ライブラリは、GIF画像の生成を行いますが、GIFファイルの中の画像ヘッダ部のみを操作し、画像データ部の圧縮・解凍を行いません。したがって、Unisys社のLZW特許には抵触しません。

• 1997.05.03 初版。
• 1997.05.10 スペルミス修正。
• 1997.05.29 サイズの異なるカラーテーブルに対応。
• 1997.07.07 エラー発生時にexit()しないように修正。
• 1998.05.05 Trailerを持たないGIFファイルを連結できないバグを修正。
• 1998.05.05 横幅が256を超えるGIFの出力ができないバグを修正。
• 1998.05.05 gifprint()で連結結果を出力しないように修正。
• 1998.05.10 連結できないGIF画像があるというバグを修正。
• 1998.08.20 Ver1.50 変数の初期化を行うように修正。
• 1998.08.20 Ver1.50 透過GIFに対応。
• 1999.05.30 Ver1.51 動作には関係ないタイプミス修正。
• 1999.10.11 Ver1.52 コメントの修正
• 2000.05.21 Ver1.53 幅の異なるGIFの連結に対応
• 2000.06.04 Ver1.54 perl -wcのwarning対応
• 2000.06.04 Ver1.55 インタレースGIF部のコードミスを修正。
• 2000.09.17 Ver1.56 連続呼び出しの際のバグ修正
• 2000.11.28 Ver1.57 インタレースGIF部のコードミスを修正。
• 2001.06.17 Ver1.57a 最新版入手先などのURLを修正
• 2001.09.14 Ver1.58 gifcatを連続で呼び出す際の不具合修正。
• 2001.10.04 Ver1.59 同上。
• 2001.11.25 Ver1.60 gifprintの不具合修正。
• 2002.06.10 Ver1.61 Netscape 6.*で1桁目が表示されない問題に対応。