02_truetype_fonts-pl

PDF-API2-0.2.3.7_dev.tar.gz

#!/usr/bin/perl -w

use PDF::API2;

$pdf=PDF::API2->new;

$f1=$pdf->corefont('Helvetica',1);

foreach $fn (glob("*.ttf")) {

	$font=$pdf->ttfont($fn);

	foreach $fe (qw(
		adobe-standard	cp437	cp850	latin1
	)) {

		$font->encode($fe);

		$page = $pdf->page;
		$page->mediabox(595,842);
		$txt=$page->text;
		$txt->compress;
		$txt->translate(100,700);
		$txt->font($font,50);
		$txt->lead(50);
		$txt->text('Hello World !');
		$txt->cr;
		$txt->font($f1,20);
		$txt->text("This is font: $fn ($fe)");

		$txt->font($font,20);

		foreach $x (0..15) {
			foreach $y (0..15) {
				$txt->translate(50+(33*$x),50+(33*$y));
				$txt->text(chr($y*16+$x));
			}
		}

	}
}

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

$pdf->end();


exit;

__END__