Code: Select all
$image = $image->Transform(crop=>$h.'x'.$w.'+0+0', gravity=>'Center');Search found 2 matches
- 2012-01-26T04:19:28-07:00
- Forum: PerlMagick
- Topic: Crop() does not gravitate?
- Replies: 6
- Views: 31648
Re: Crop() does not gravitate?
I can confirm that this works;
So it appears whatever fix was implemented was deleted.
- 2012-01-26T04:16:27-07:00
- Forum: PerlMagick
- Topic: Crop() does not gravitate?
- Replies: 6
- Views: 31648
Re: Crop() does not gravitate?
This is still broken in the latest version. I'm using the latest ImageMagick which I recompiled for the Mac. PerlMagick is from cpan. 'gravity' will not work.
my $image = $_[0]{IMGOBJ}->clone();
$image->Set(quality=>85);
$image->Set(magick => 'JPEG');
my $w = 85; my $h = 100;
## resize with ratio ...
my $image = $_[0]{IMGOBJ}->clone();
$image->Set(quality=>85);
$image->Set(magick => 'JPEG');
my $w = 85; my $h = 100;
## resize with ratio ...