guruguru

guruguru.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Image::Magick;
use Data::Dumper;

my ($filename, $outputname, $size, $span, $delay) = @ARGV;

my $gifanime = Image::Magick->new;
$size = $size . "x" . $size;
my $max = 360 / $span;

for (my $i=0; $i < $max; $i++) {
    my $image = Image::Magick->new;
    $image->Read("$filename");
    $image->Rotate($i*$span);
    $image->Extent(geometry=>"$size", background=>"white", gravity=>"center");
    $gifanime->[$i] = $image;
    $gifanime->[$i]->Set(delay=>$delay);
    print $i * $span . "\n";
}

$gifanime->Write("gif:". $outputname);

exit;

https://qiita.com/DQNEO/items/09e507b58107ddf18455

./guruguru.pl sourcefile.jpg outputfilegif imagesize span delay
./guruguru.pl sourcefile.jpg outputfilegif 128 30 10