[Bioperl-l] problem in inserting image in pdf file

[Shachi Gahoi]

Dear All,

I want to insert my image file in newly created pdf file. For this I am
using bioperl module PDF::Create to create new pdf file.

But when I inserted my image file in newly created pdf file, whole image is
not coming in pdf file. I have attached used image file and created pdf
file.

Please tell me the required changes in script.

Code is given below ----

##############################
######################################
#!/usr/bin/perl
use strict;
use warnings;

use PDF::Create;

my $pdf = new PDF::Create('filename' => 'IMAGE11.pdf');

my $a4 = $pdf->new_page('MediaBox' => $pdf->get_page_size('A4'));

my $page = $a4->new_page;

my $image = $pdf->image('img.jpeg');

$page->image(image => $image, xpos => -5, ypos => 650);

$pdf->close;
##############################################################################


-- 
Regards,
Shachi
-------------- next part --------------
A non-text attachment was scrubbed...
Name: img.jpeg
Type: image/jpeg
Size: 12851 bytes
Desc: not available
URL: <http://lists.open-bio.org/pipermail/bioperl-l/attachments/20110614/e285a70b/attachment-0004.jpeg>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: IMAGE11.pdf
Type: application/pdf
Size: 13903 bytes
Desc: not available
URL: <http://lists.open-bio.org/pipermail/bioperl-l/attachments/20110614/e285a70b/attachment-0004.pdf>