[magick-users] pass minimum width and height to resize?

[Razvan Cosma]

 Here's what I came up with so far, which works fairly well with the 
mention that in perlmagick "gravity" and "repage" are either not 
implemented at all or broken? This is really annoying as for smaller 
thumbnails I needed to get a slice from the middle of the image, and 
then a thinner slice from the bottom of that.

use Image::Magick;
use File::Glob qw(:glob :nocase);

$fpat = shift or die "no files\n";
@flist= bsd_glob($fpat);
mkdir("resized");
foreach $name (@flist)
{
    $image =Image::Magick -> new();
    $result=$image->Read($name);
    die $result if $result;
    my($x, $y)=$image -> Get('width', 'height');
    if($x>$y)
    {   
        $new_image1    = $image -> Clone();
        if($x/$y<1.61)
            {$new_image1 -> Scale(width=>466, geometry=>"466x");}
        else
            {$new_image1 -> Scale(height=>288, geometry=>"x288");}
        $new_image1 -> Crop(width=>466, height=>288, gravity=>center);
        #$new_image1->Set( page=>'0x0+0+0' );
        $result = $new_image1 -> Write("resized/".$name);
        die $result if $result;
        $new_image2    = $new_image1 -> Clone();
        if($x/$y<3.11)
            {$new_image2 -> Scale(width=>165, geometry=>"165x", 
gravity=>South);}
        else
            {$new_image2 -> Scale(height=>53, geometry=>"x53", 
gravity=>South);}
        #$new_image2->Set( page=>'0x0+0+0' );
        $new_image2 -> Crop(geometry=>"165x53+0+0", gravity=>South);     
        ($new_name = $name)    =~ s/\.jpg/_thumbnail\.jpg/i;
        $result = $new_image2 -> Write("resized/".$new_name);
        die $result if $result;
    }
}

> -------- Original Message  --------
> Subject: [magick-users] pass minimum width and height to resize?
> From: Fred Weinhaus <fmw at alink.net>
> To: magick-users at imagemagick.org
> Date: Thu Jan 24 2008 20:07:12 GMT+0200 (EET)
>
>
>
> Hello,
>
> I just recently created a bash shell script to do this. It is called 
> squareup. You can find it at 
> http://www.fmwconcepts.com/imagemagick/index.html
>
> You might be able to look at what I have done and convert it to 
> perlmagick, if you are unable to use it as a bash Unix script.
>
> Fred Weinhaus
>
>
>
>>
>>  Hi all,
>> The docs state that wxh specified in the command line to mogrify or
>> through the api are maximum, so an image will fit into, not fill a
>> rectangle with a different aspect ratio. I would like to resize to a
>> minimum x or y, center then crop the other dimension, filling the space
>> available, is this possible? (I'm using perlmagick)
> _______________________________________________
> Magick-users mailing list
> Magick-users at imagemagick.org
> http://studio.imagemagick.org/mailman/listinfo/magick-users