Subscribed unsubscribe Subscribe Subscribe

Twitterのアイコンをぐるぐる回してみた

なんとなく。

#!/usr/local/bin/activeperl
use strict;
use warnings;
use Imager;

my $file = '/Users/sugyan/Pictures/icon.png';
my @img = ();
my $image = Imager->new(file => $file);

push @img, $image;
for (1 .. 59) {
    push @img, $image->rotate(degrees => - 0.5 * $_ * $_)->crop(width => 48, height => 48);
}
Imager->write_multi({
    file => 'hoge.gif',
    type => 'gif',
    gif_loop => 0,
}, @img);

Imagerの使い方さえ把握できれば結構かんたんにGIFアニは作れるんだなー。