From: Steinar H. Gunderson Date: Mon, 26 May 2008 21:05:22 +0000 (+0200) Subject: More weird hacks to get the PNG file size down. GIMP still gets it 25% better X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=7692cd97b7c64a41f77a6c4b745248ad76670d42 More weird hacks to get the PNG file size down. GIMP still gets it 25% better since I can actually make it output something indexed, but this will do for now. --- diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index ae1d3d0..c441d67 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -586,7 +586,7 @@ sub ensure_cached { $height = 1; } - $err = $img->write(filename => $cachename, quality => 99); + $err = $img->write(filename => $cachename, quality => 90, depth => 8); $r->log->info("New infobox cache: $width x $height for $id.jpg"); return ($cachename, 'image/png');