I'll try to get a non-company document working sample.
Just to add, the document I am trying in Perl deskews perfectly with convert.
Search found 3 matches
- 2011-01-15T21:07:34-07:00
- Forum: PerlMagick
- Topic: Deskew() in Perl
- Replies: 5
- Views: 19214
- 2011-01-15T14:38:48-07:00
- Forum: PerlMagick
- Topic: Deskew() in Perl
- Replies: 5
- Views: 19214
Re: Deskew() in Perl
Thanks for the reply.
Unfortunately, that was the first thing I tried. I get my tif, but it does no Deskewing.
sub do_magick {
my $im = Image::Magick->new;
my $ppm = $_[0];
$im->Read($ppm);
$im->Deskew('40%');
$im->Write($basenm . "_pldk.tif");
}
ImageMagick-6.6.7-0
ImageMagick-perl-6.6 ...
Unfortunately, that was the first thing I tried. I get my tif, but it does no Deskewing.
sub do_magick {
my $im = Image::Magick->new;
my $ppm = $_[0];
$im->Read($ppm);
$im->Deskew('40%');
$im->Write($basenm . "_pldk.tif");
}
ImageMagick-6.6.7-0
ImageMagick-perl-6.6 ...
- 2011-01-15T03:04:15-07:00
- Forum: PerlMagick
- Topic: Deskew() in Perl
- Replies: 5
- Views: 19214
Deskew() in Perl
Hi,
Can someone explain this:
Deskew geometry=>string,threshold=>double
I don't understand what it's looking for. I always got the results I got from the command line with simply -deskew 40%, but I'm unsure how to get the same results with PerlMagick (geometry of what? threshold of 0.0-1.0, or 0 ...
Can someone explain this:
Deskew geometry=>string,threshold=>double
I don't understand what it's looking for. I always got the results I got from the command line with simply -deskew 40%, but I'm unsure how to get the same results with PerlMagick (geometry of what? threshold of 0.0-1.0, or 0 ...