Select Code to Download

# Check if we are limited by height or width of the source image
my $factor = $sourcewidth / $targetwidth;
...
)
my $newwidth = int($sourcewidth / $factor);
my $newheight = int($sourceheight / $factor);

$newpic->copyResized($sourcepic,
                              $destx, $desty, # DEST X Y
...
                              $newwidth, $newheight, # DEST W H
                              $sourcewidth, $sourceheight, # SRC W H
                          );

sub printAddGreyscaleImage {
    my ($self, $filename, $isbindata, $imagesoftness) = @_;
...
    $self->{imgoffs} += $desth;
    return;
}