Hi!
This is what I've found:
use strict;
use Imager;
my $ImgFile1 = "./template/promemoria/messaggio.jpg";
my $img1 = Imager->new();
$img1->read(file=>$ImgFile1) or die $img1->errstr();
# This doesn't work ( well.. it result in a wrong pasting.. it seems
that bottom (src_maxy) source img will set to max img height instead
610..
#$img1->paste(top=>544,
# left=>72,
# src_minx => 30,#30,
# src_miny => 580,#715,
# src_maxx => 120,#120,
# src_maxy => 610,#728,
# #height => 10,
# #width => 90,
# img=>$img1
# );
# This WORKS
Imager::i_copyto($img1, $img1, 30, 715, 120, 728, 72,544 );
$img1->write(type=>"jpeg", file=>'mio.jpeg') or die $img1->errstr();
hope it can be usefull...
Bye
Mario
Il giorno ven, 14-04-2006 alle 05:26 -0400, via RT ha scritto:
Show quoted text> <URL:
http://rt.cpan.org/Ticket/Display.html?id=18712 >
>
> Please provide some sample code that reproduces the problem.
>
> I had a look through the code involved in Imager and don't see anything
> wrong at first look. Code that reproduces the problem will let me
> diagnose and fix it as soon as possible.
>
> Thanks.
> Tony
