|
Lines 187-196
sub _scale_image {
Link Here
|
| 187 |
and warn "Reducing image by " |
187 |
and warn "Reducing image by " |
| 188 |
. ( $percent_reduce * 100 ) |
188 |
. ( $percent_reduce * 100 ) |
| 189 |
. "\% or to $width_reduce pix X $height_reduce pix"; |
189 |
. "\% or to $width_reduce pix X $height_reduce pix"; |
| 190 |
my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 ) |
190 |
my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 ); #'1' creates true color image... |
| 191 |
; #'1' creates true color image... |
191 |
#my $newimage = $image->clone; |
|
|
192 |
$newimage->alphaBlending(0); |
| 193 |
$newimage->saveAlpha(1); |
| 194 |
#$newimage->transparent( $image->transparent() ); |
| 192 |
$newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce, |
195 |
$newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce, |
| 193 |
$height_reduce, $width, $height ); |
196 |
$height_reduce, $width, $height ); |
|
|
197 |
#$newimage->transparent( $image->transparent() ); |
| 194 |
return $newimage; |
198 |
return $newimage; |
| 195 |
} |
199 |
} |
| 196 |
else { |
200 |
else { |
| 197 |
- |
|
|