Imager::Marquee、あるいは、揺れるイケメン

画像を左右に動かしたり揺らしたりするモジュールを作成しました。

• https://github.com/kentaro/imager-marquee

以下、使い方を説明します。

たとえばここに、イケメンを写した画像があります。

確かにイケメンです。しかし、しばらくほれぼれと眺めているうちに、いくらイケメンとはいえ、動きがないとちょっと飽きてしまうのも事実(「美人は3日で飽きる」ともいいますし)。これでは、せっかくのイケメンも片無しです。そこで、ちょっと動きをつけてみましょう。

use strict;
use warnings;
use Imager::Marquee;

my $image = Imager::Marquee->new(file => shift);
   $image->marquee(3)->write(
       file     => 'marquee.gif',
       gif_loop => 0,
       delay    => 1,
   );

この結果、イケメンが左方向に延々ループし、さらにイケメン度合いが増しました。

もちろん、イケメンは右方向にループするべきという考えもあるでしょうから、対応します。

use strict;
use warnings;
use Imager::Marquee;

my $image = Imager::Marquee->new(file => shift);
   $image->rmarquee(3)->write(
       file     => 'rmarquee.gif',
       gif_loop => 0,
       delay    => 1,
   );

イケメンが右方向に動いています。ますますかっこいいですね。

あるいは、イケメンが揺れていたらどうなるのでしょうか？興味は尽きないところです。人間の、美に対する執着には恐れ入るばかり。こんなにもイケメンであっても、さらに上を目指してしまう業の深さよ……。

use strict;
use warnings;
use Imager::Marquee;

my $image = Imager::Marquee->new(file => shift);
   $image->shake(1)->write(
       file     => 'shake.gif',
       gif_loop => 0,
       delay    => 1,
   );

イケメンが揺れています。

揺れているのはイケメンではなく、あなたの恋心のなのかも？

参考文献

• https://twitter.com/#!/hitode909