#!/usr/bin/perl

use PDF::API2;

$pdf=PDF::API2->new;
$pdf->{forcecompress}=0;
$f1=$pdf->corefont('Helvetica',1);
$f1->encode('latin1');
$f2=$pdf->corefont('Helvetica-Bold',1);
$f2->encode('latin1');
$f3=$pdf->corefont('Times-Roman',1);
$f3->encode('latin1');
$f4=$pdf->corefont('Verdana');
$f4->encode('latin1');

$txt='a sdf asdf adsfasdf asdfa asdfalskd asdflasdf asdasdasd fasdf a sd';

$page=$pdf->page;
$page->mediabox(595,842);

$t=$page->text;


$t->lead(-20);
$t->font($f4,10);
$x=30;$y=700;
($x,$y,$o)=$t->paragraph($txt,-x=>$x,-y=>$y,-w=>100,-h=>600,-lead=>-10);

$x=30;$y-=20;
($x,$y,$o)=$t->paragraph($txt,-x=>$x,-y=>$y,-w=>100,-h=>600,-lead=>-10,-less=>0);

$x=30;$y-=20;
($x,$y,$o)=$t->paragraph($txt,-x=>$x,-y=>$y,-w=>100,-h=>600,-lead=>-10,-left=>1);

$t->cr;

$t->translate(50,20);
$t->text("x=$x,y=$y,t=".substr($o,0,10)."...");

$pdf->saveas("$0.pdf");

$pdf->end;

exit;

__END__
