hi
i use following code to write image in pdf .
it is writing image but not clear
can u tell me whether this is right code or i need to change any parameter
-------------------------------------------------------------------------------------------
#!/usr/local/bin/perl -w
# Change above line to point to your perl binary
use PDF::Reuse;
use Image::Info qw(image_info dim);
use strict;
my $info = image_info('summary_day.jpeg');
my $color = $info->{color_type};
my ($width, $height) = dim($info); # Get the dimensions
prFile('image.pdf');
print "$width"." $height \n";
my $intName = prJpeg('summary_day.jpeg',$width,$height);
my $str = "q\n";
$str .= "$width 1 1 $height 10 10 cm\n";
$str .= "/$intName Do\n";
$str .= "Q\n";
prAdd($str);
prEnd();
-------------------------------------------------------------------------------------------
thanks and regards
arun
