Lines 179-186
sub _scale_image {
Link Here
|
179 |
and warn "Reducing image by " |
179 |
and warn "Reducing image by " |
180 |
. ( $percent_reduce * 100 ) |
180 |
. ( $percent_reduce * 100 ) |
181 |
. "\% or to $width_reduce pix X $height_reduce pix"; |
181 |
. "\% or to $width_reduce pix X $height_reduce pix"; |
182 |
my $newimage = GD::Image->new( $width_reduce, $height_reduce, 1 ) |
182 |
my $newimage = GD::Image->new( $width_reduce, $height_reduce, $image->trueColor ) |
183 |
; #'1' creates true color image... |
183 |
; # if third is set, creates true color image |
184 |
$newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce, |
184 |
$newimage->copyResampled( $image, 0, 0, 0, 0, $width_reduce, |
185 |
$height_reduce, $width, $height ); |
185 |
$height_reduce, $width, $height ); |
186 |
return $newimage; |
186 |
return $newimage; |
187 |
- |
|
|