Chris wrote:
Is it just me or does the crop function not work at all?
$x = $image->Crop(geometry=>'100x100"+100"+100');
warn "$x" if "$x";
No problems for me with that. (Image::Magick 5.26 and ImageMagick 5.5.5-3)
Cheers,
Rob
___
Perl-Win32-Users
Is it just me or does the crop function not work at all?
use Image::Magick;
my($image, $x);
$image = Image::Magick->new;
$x = $image->Read('input.jpg');
warn "$x" if "$x";
$x = $image->Crop(geometry=>'100x100"+100"+100');
warn "$x" if "$x";
$x = $image->Write('o