use
Text::PDF::API;
$d
=-20;
=Text::PDF::API->new(
pagesize
=>
'a4'
,
'compression'
=>0);
->newFont(
'Times-Roman'
);
foreach
$f
(6 .. 24) {
->newpage();
->useFont(
'Times-Roman'
,
$f
);
->setTextLeading(
$f
*1.2);
(
$x
,
$y
,
$text
)=
->textParagraph(10,800,250,800,
join
(
' '
,
q|Liber vel Legis. inforom summa cum laude. |
x (1000/
$f
)));
printf
"x=%f,y=%f\n"
,
$x
,
$y
;
(
$x
,
$y
,
$text
)=
->textParagraph(290,800,250,800,
$text
);
printf
"x=%f,y=%f\n"
,
$x
,
$y
;
->endpage();
}
->saveas(
"$0.pdf"
);
->end;
__END__