Bastiaan Wakkie on wrote...
| Hi,
|
| I am writing a Perl script to find a generic optimizing formula. Please
| have a look:
|
| =========================
| case /\.(gif|jpe?g|png)$/io { # An image
| my $image = new Image::Magick();
| my $last_error;
| $last_error = $image->Read($file);
| if ($last_error) {
| print ($last_error);
| }
| else{ #image seams ok so we continue
| (my $magick, my $colors, my $baseColumns, my
| $baseRows) = $image->Get('magick', 'colors', 'base-columns', 'base-rows');
| #print "format:".$format." ";
| print "base-columns:$baseColumns x $baseRows";
| print "magick: $magick";
| print "colors: $colors";
| switch ($magick){
| case 'GIF'{
| if ($filesizeBefore>6000){
| # If GIF files are bigger than 6kb we
| interleace them
| # and we have a different blur
| $image->AdaptiveBlur(Radius=>4);
| #$image->Interlace('line');
| }
| else{
| $image->AdaptiveBlur(Radius=>2);
| #$image->interlace('none');
| }
| if ($colors>16){
| my $reducedColor=$colors/2;
| $image->Posterize(levels=>$reducedColor,
| dither=>'False');
| print "->$reducedColor\t";
| }
| $image->Quantize();
| $image->Write($file);
| }
| case 'JPEG'{
| system "jpegoptim -f $file";
| #also test on packJPG
| }
| case 'PNG'{
| system "optipng -q -o3 $file"
| }
| }
| }
| undef $image;
| }
|
| =========================
|
| Are there any good ImageMagick equivalent for: jpegoptim -f $file
| ...and/or... optipng -q -o3 $file ?
|
No, sorry.
Anthony Thyssen ( System Programmer ) <[EMAIL PROTECTED]>
-----------------------------------------------------------------------------
On the net, the only users you can trust not to be potentially hostile
are those who are *activally* hostile.
-- Programming Perl - Camel Book, r3
-----------------------------------------------------------------------------
Anthony's Home is his Castle http://www.cit.gu.edu.au/~anthony/
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
