#!/usr/bin/perl
#
#  Test PDF::API3 for use with open source license files.

use strict;
use warnings;

my $outputPDF = 'test.pdf';

use PDF::API3::Compat::API2;

{
    my $pdf = PDF::API3::Compat::API2->new( -file => $outputPDF );
    defined $pdf or die "Unable to create PDF file $outputPDF";

    my $page    = $pdf->page();
    my $content = $page->text();

    my ( $x, $y ) = ( 72, 720 );
    for my $fontName (
        qw[
        trebuchet trebuchetbold	trebuchetitalic
        trebuchetbolditalic bankgothic
        courier courierbold courierboldoblique courieroblique
        couriernew couriernewbold 
        georgia georgiabold georgiabolditalic georgiaitalic
        helveticaboldoblique helveticaoblique helveticabold helvetica
        symbol
        timesbolditalic timesitalic timesroman timesbold
        verdana verdanabold verdanabolditalic verdanaitalic
        webdings
        wingdings
        zapfdingbats
        ]
      )
    {
        my $font = $pdf->corefont($fontName);
        $content->font( $font, 10 );
        $content->translate( $x, $y );
        $content->text(
          'This is the first line I have written using this module' );
        $y -= 12;
        $content->translate( $x, $y );
        $content->text("in quite a while. ($fontName)");
        $y -= 12;
    }
    $pdf->save;
}