16x16 の履歴を GIFアニメ にする Perl スクリプト

16x16 の履歴画像を GIFアニメにすると面白そうだなぁと思ったので書いてみました。試しにセコンさんのエントリにあるこの画像

http://img.f.hatena.ne.jp/images/fotolife/s/secondlife/20090615/20090615191629.png

を変換すると

こんな GIFアニメになります。やってることは簡単で、左上から順に 16x16 の画像を切り出して最後に GIFアニメとして書き出しているだけです。gif_delay とか gif_loop のオプションは perldoc Imager::Files の GIF の項に書いてあります。

追記

いちいち画像保存して変換するのめどいよねということで、履歴画像を表示した時の data:image/png;base64, で始まるデータスキームをフォームにコピペると GIFアニメを出力する CGI も書いてみました。