|
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 |
- |
|
|