Subscribed unsubscribe Subscribe Subscribe

Kentaro Kuribayashi's blog

Software Engineering, Management, Books, and Daily Journal.

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

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

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

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

f:id:antipop:20100123233744j:image

確かにイケメンです。しかし、しばらくほれぼれと眺めているうちに、いくらイケメンとはいえ、動きがないとちょっと飽きてしまうのも事実(「美人は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,
   );

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

f:id:antipop:20110410222755g:image

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

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,
   );

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

f:id:antipop:20110410222756g:image

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

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,
   );

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

f:id:antipop:20110410222757g:image

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