From d915fd11933761ff0585131d8b3174869b2c0a1c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Serhij=20Dubyk=20{=D0=A1=D0=B5=D1=80=D0=B3=D1=96=D0=B9=20=D0?= =?UTF-8?q?=94=D1=83=D0=B1=D0=B8=D0=BA}?= Date: Mon, 14 May 2012 23:24:42 +0300 Subject: [PATCH] [SIGNED-OFF] Preservation transparency of png-images cover. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Content-Type: text/plain; charset="utf-8" Signed-off-by: Serhij Dubyk {Сергій Дубик} --- C4/Images.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/C4/Images.pm b/C4/Images.pm index 8afc8fa..3a8a383 100644 --- a/C4/Images.pm +++ b/C4/Images.pm @@ -187,10 +187,14 @@ sub _scale_image { and warn "Reducing image by " . ( $percent_reduce * 100 ) . "\% or to $width_reduce pix X $height_reduce pix"; - my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 ) - ; #'1' creates true color image... + my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 ); #'1' creates true color image... + #my $newimage = $image->clone; + $newimage->alphaBlending(0); + $newimage->saveAlpha(1); + #$newimage->transparent( $image->transparent() ); $newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce, $height_reduce, $width, $height ); + #$newimage->transparent( $image->transparent() ); return $newimage; } else { -- 1.7.10