#!/usr/bin/perl

use PDF::API2;
use PDF::API2::SynFont;

$pdf=PDF::API2->new;

$f1=$pdf->corefont('Arial',-encode=>'latin1');
$f2=$pdf->corefont('Helvetica-Bold',-encode=>'latin1');
$f3=$pdf->corefont('Helvetica-Oblique',-encode=>'latin1');
$f4=$pdf->corefont('Helvetica-BoldOblique',-encode=>'latin1');

    $page = $pdf->page;
    $page->mediabox(595,842);
    $txt=$page->text;
    $txt->compress;
    $txt->translate(100,750);
    $txt->lead(40);

    my $font=PDF::API2::SynFont->new_api($pdf,$f1,-bold=>4);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($f2,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

    $txt->cr;

    my $font=PDF::API2::SynFont->new_api($pdf,$f1,-oblique=>12);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($f3,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

    $txt->cr;

    my $font=PDF::API2::SynFont->new_api($pdf,$f1,-bold=>4,-oblique=>12);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($f4,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

    $txt->cr;

$t1=$pdf->corefont('Times-Roman',-encode=>'latin1');
$t2=$pdf->corefont('Times-Bold',-encode=>'latin1');
$t3=$pdf->corefont('Times-Italic',-encode=>'latin1');
$t4=$pdf->corefont('Times-BoldItalic',-encode=>'latin1');

    my $font=PDF::API2::SynFont->new_api($pdf,$t1,-bold=>4);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($t2,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

    $txt->cr;

    my $font=PDF::API2::SynFont->new_api($pdf,$t1,-oblique=>12);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($t3,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

    $txt->cr;

    my $font=PDF::API2::SynFont->new_api($pdf,$t1,-bold=>4,-oblique=>12);
    $txt->font($font,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;
    $txt->font($t4,40);
    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
    $txt->cr;

#    $page = $pdf->page;
#    $page->mediabox(595,842);
#    $txt=$page->text;
#    $txt->compress;
#    $txt->translate(100,750);
#    $txt->lead(40);
#
#$h1=$pdf->ttfont('ArialUnicodeMsRegular.ttf');
#
#foreach $sl (3..6){
#    my $font=PDF::API2::SynFont->new_api($pdf,$h1,-bold=>$sl);
#    $txt->font($font,40);
#    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
#    $txt->cr;
#}
#    $txt->cr;
#
#foreach $sl (11..14){
#    my $font=PDF::API2::SynFont->new_api($pdf,$h1,-oblique=>$sl);
#    $txt->font($font,40);
#    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
#    $txt->cr;
#}
#    $txt->cr;
#
#foreach $sl (3..6){
#    my $font=PDF::API2::SynFont->new_api($pdf,$h1,-bold=>$sl,-oblique=>$sl+8);
#    $txt->font($font,40);
#    $txt->text(": qwertzuiopASDFGHJKL_0123456789");
#    $txt->cr;
#}
#    $txt->cr;


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


$pdf->end();
exit;

__END__
