X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=000b3511464291baa52f76c35195bdd6b58da21b;hp=e339fd3ab596026f33390cdefa97579ecce2a249;hb=0f41d1a8beed02aacf3e08cc963ccc0a765427f7;hpb=705c77424bb19f5be37865d99995390926ea0b9f diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index e339fd3..000b351 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -401,6 +401,11 @@ sub ensure_cached { $err = $magick->Read(file => \*DCRAW); close(DCRAW); } else { + # We always want YCbCr JPEGs. Setting this explicitly here instead of using + # RGB is slightly faster (no colorspace conversion needed) and works equally + # well for our uses. (Ideally we'd be able to keep the image subsampled and + # planar, but that would probably be difficult for ImageMagick to expose.) + $magick->Set(colorspace=>'YCbCr'); $err = $magick->Read($fname); } @@ -425,11 +430,6 @@ sub ensure_cached { update_image_info($r, $id, $width, $height); } - # We always want RGB JPEGs - if ($img->Get('Colorspace') eq "CMYK") { - $img->Set(colorspace=>'RGB'); - } - while (defined($xres) && defined($yres)) { my ($nxres, $nyres) = (shift @otherres, shift @otherres); my $cachename = get_cache_location($r, $id, $xres, $yres, $infobox);