FC5のyumでいれたImageMagick,ImageMagick-perlはCrop,Resizeしても正方形にならずに3:2のまま縮小されてしまう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | #!/usr/bin/perl use strict; use warnings; use Image::Magick; my $i = Image::Magick->new; $i->Read("test0.jpg"); # 640x480 $i->Crop(geometry => '480x480+80+0'); $i->Resize(geometry => '48x48'); $i->Write("test2.jpg"); |
バグか。FC6だと解消されてるみたいだけど。結局
$i->Resize(width => '48', height => '48');
と書くことで望む結果は得られたが、無駄に手間取った。