#!/bin/perl print << "ENDBLOCK"; ImageMagick Filters

ImageMagick Resize Filters

This page demonstrates the results of resampling three images using the various resize filters and blur settings available in ImageMagick, and the file size of the resulting thumbnail images. Click the image filename at the top of each section to see the fullsize image.

Results produced using PerlMagick 5.4.0 under Windows 2000, using this Perlmagick script

Home

The Results

ENDBLOCK use Image::Magick; print ""; print ""; my $colcount = 1; for (my $blur = 0.125; $blur <= 4; $blur *= 2) { print ""; $colcount++; } my $filesize; my $quality = 85; foreach $imagefile (glob("*.jpg *.gif")) { print(""); foreach $filter (Point, Box, Triangle, Hermite, Hanning, Hamming, Blackman, Gaussian, Quadratic, Cubic, Catrom, Mitchell, Lanczos, Bessel, Sinc) { print ""; for (my $blur = 0.125; $blur <=4; $blur *= 2) { warn("Writing filtered/$filter\_$blur\_$imagefile\n"); my $image = new Image::Magick; $image->Read($imagefile); $image->Resize(geometry=>'128x128', filter=>"$filter", blur=>$blur); $image->Set(quality=>$quality); $image->Write("jpg:filtered/$filter\_$blur\_$imagefile"); $filesize = ((stat("filtered/$filter\_$blur\_$imagefile"))[7])/1024; $filesize = int($filesize*100)/100; print ""; undef $image; } print ""; } }

Filter:	Blur $blur
$imagefile (Click for original image)
$filter	$filesize Kb