Image::Magick scale smaller makes file size bigger

From: Gary Mayor (gary_at_abertron.co.uk)
Date: 02/15/04 

Date: Sun, 15 Feb 2004 21:08:20 +0000

Hi,
The problem is i'm using Image Magick to create thumbnails smaller
images out of large ones. 99% of the time this works great but there's
1% where the thumbnail has a bigger file size then the original image
and that I can't understand. The code i'm using is below and I hope
someone knows what this might be. I've tried resizing and saving the
images in gimp and the sizes turn out correct. Also if I compress the
image the size does decrease but why would a image with no compression
turn out bigger than the original. I also tried adding the icmp or
whatever it was to the code but that didn't make any difference. How can
this be anyone know?

Thanks

Gary

my $imager = Image::Magick->new;
die unless ref $imager;

my $status = $imager->Read("$infile");
print "Read: $status\n" if $status;

$height = $imager->Get('height');
$width = $imager->Get('width');

my $ttwidth = 100;

my $tbheight=1;
my $tbwidth=1;
my $fixed=$ttwidth;
my $scalefix=1;
my $scalefactor=$width/$fixed;
$tbheight=$height/$scalefactor;
$tbwidth=$fixed;

$count++;
$original[$count] = $cfile;
$status = $imager->Write(filename=>"$dir/$cfile");

$imager->Scale( width=>$tbwidth, height=>$tbheight );

$imager->Set(Quality=>$compression);

$new[$count] = "$outfile";
$status = $imager->Write(filename=>"$dir/$outfile",compression=>'JPEG');

Relevant Pages