1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
|
#!/usr/bin/perl
# This is an example of using Text::Layout to create the same document
# as native Pango.
#
# This example uses Text::Layout in Pango conformance mode. The
# relevant parts of this program and its Pango counterpart are very
# much the same.
use strict;
use warnings;
use utf8;
use lib "../lib";
use PDF::API2;
use Text::Layout;
# Create document and graphics environment.
my $pdf = PDF::API2->new( file => 'tl_c_01.pdf' );
$pdf->mediabox( 595, 842 ); # A4
# Set up page and get the text context.
my $page = $pdf->page;
my $text = $page->text;
my $gfx = $page->gfx;
# Create a layout instance.
my $layout = Text::Layout->new($pdf);
# Tell Text::Layout that we are running in convenience mode.
# my $PANGO_SCALE = $layout->set_pango_mode(0); # default
my $PANGO_SCALE = $layout->get_pango_scale;
# Scale from Cairo (PDF) font size to Pango.
my $PANGO_FONT_SCALE = 1 * $PANGO_SCALE;
# Font sizes used, scaled.
my $realfontsize = 60;
my $fontsize = $realfontsize * $PANGO_FONT_SCALE;
my $tinysize = 20 * $PANGO_FONT_SCALE;
sub main {
# Select a font.
my $font = Text::Layout::FontConfig->from_string("freeserif 12");
$font->set_size($fontsize);
$layout->set_font_description($font);
# Start...
my $x = 0;
my $y = 500; # PDF goes up
# Text to render.
# Text to render.
my $txt = qq{ Áhe <i><span foreground="red">quick</span> }.
# $tinysize = 20 for a 20pt font.
qq{<span size="33.33%"><b>brown</b></span></i> }.
# rise is in points
qq{<span rise="-170.667">fox</span>}.
# 170.667/1024 units of a 60pt font = 10pt.
qq{<span rise="10pt" }.
# size=60 for a 60pt font.
qq{size="60">x</span>}.
# size=60pt for a 60pt font.
qq{<span rise="10pt" size="60pt">x</span> };
my $txt_nomarkup = "Áhe quick brown fox ";
$layout->set_markup($txt);
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# Render it.
showlayout( $x, $y );
$y -= 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("right");
# Render it.
showlayout( $x, $y );
$y -= 100;
# Plain PDF::API2, no Text::Layout.
$text->font( $font->{font}, $realfontsize );
# PDF::API2 text is baseline oriented.
$text->translate( $x, $y-50 );
my $dx = $text->text($txt_nomarkup);
if ( $font->{font}->can("extents") ) {
my $e = $font->{font}->extents( $txt_nomarkup, $realfontsize );
printf( "EXT: %.2f %.2f %.2f %.2f\n", @$e{qw( x y width height )} );
$gfx->save;
$gfx->translate( $x, $y-50 );
# PDF::API2 text is baseline oriented, so are the extents.
# So we can draw the BB at the same origin as the text.
$gfx->rect( $e->{x}, $e->{y}, $e->{width}, $e->{height} );
$gfx->linewidth(0.5);
$gfx->strokecolor("cyan");
$gfx->stroke;
$gfx->restore;
}
# Draw baseline.
$gfx->save;
$gfx->translate( $x, $y-50 );
$gfx->move( 0, 0 );
$gfx->line( $dx, 0 );
$gfx->linewidth(0.5);
$gfx->strokecolor("magenta");
$gfx->stroke;
$gfx->restore;
$y -= 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("center");
# Render it.
showlayout( $x, $y );
# Ship out.
$pdf->save;
}
################ Subroutines ################
sub showlayout {
my ( $x, $y ) = @_;
$layout->show( $x, $y, $text);
$layout->showbb($gfx);
}
sub setup_fonts {
$^O =~ /mswin/i ? setup_fonts_windows() : setup_fonts_linux();
}
sub setup_fonts_linux {
my $fd = Text::Layout::FontConfig->new;
# Add font dir and register fonts.
$fd->add_fontdirs( $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
for ( "", qw( Bold Italic BoldItalic ) ) {
$fd->register_font( "FreeSerif$_.ttf", "freeserif", $_,
{ shaping => 0 } );
}
}
sub setup_fonts_windows {
my $fd = Text::Layout::FontConfig->new;
# Add font dir and register fonts.
$fd->add_fontdirs( "C:\\Windows\\Fonts" );
$fd->register_font( "georgia.ttf", "freeserif", "" );
$fd->register_font( "georgiab.ttf", "freeserif", "bold" );
$fd->register_font( "georgiai.ttf", "freeserif", "italic" );
$fd->register_font( "georgiaz.ttf", "freeserif", "bolditalic" );
}
################ Main entry point ################
# Setup the fonts.
setup_fonts();
# Run...
main();
|
