talexb has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to use the regular Courier font with the PDF::API3 package, but when I run this script, all I get is Courier-Oblique. The other fonts more or less work fine, but I'd really like to get a proper, ordinary monospace font.
#!/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; }
Also, I notice that PDF::API3 has bugs that are 2-4 years old -- does this mean that this module isn't under active development any more?
Back to
Seekers of Perl Wisdom