Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: How to rotate images in PDF:API2 module?

by snoopy (Deacon)
on Nov 30, 2012 at 08:09 UTC ( #1006425=note: print w/replies, xml ) Need Help??

in reply to How to rotate images in PDF:API2 module?

I'd rotate the graphics before-hand and restore afterwards:
#!/usr/bin/perl use PDF::API2; my $img1="../first.gif"; my $pdffile="../sample.pdf"; my $pdf = PDF::API2->new( -file => "$pdffile" ); my $page1 = $pdf->page; $page1->mediabox('A4'); my $photo1 = $page1->gfx; my $photo_file1 = $pdf->image_gif($img1); $photo1->save; $photo1->transform( -rotate => 45, -translate => [my $_x = 100, my $_y = 50], ); $photo1->image( $photo_file1,50,360,510,250); $photo1->restore; $pdf->saveas($pdffile); $pdf->end();
There's likely to also be some translation involved depending on what corner you want to pivot from.

Replies are listed 'Best First'.
Re^2: How to rotate images in PDF:API2 module?
by vasanthgk91 (Sexton) on Nov 30, 2012 at 09:21 UTC

    Thank u very much...It's works fine..

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006425]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (11)
As of 2018-06-25 16:55 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (127 votes). Check out past polls.