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
|
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
my $verbose = 1;
use PDF::API2;
my $pdf = PDF::API2->new;
$pdf->default_page_size("a4");
my $page = $pdf->page;
my $text = $page->text;
#my $font = $pdf->corefont('Times-Roman');
my $font = $pdf->ttfont( $ENV{HOME} . '/.fonts/DejaVuSerif.ttf');
$text->font( $font, 40 );
$text->translate(50,500);
$text->text("the quick brown fox _ ", -underline => ["auto","auto"] );
$text->text("jumps", -underline => ["auto","auto"] );
use lib 'lib';
use Text::Layout;
warn("Text::Layout version ", $Text::Layout::VERSION, "\n");
my $layout = Text::Layout->new($pdf);
# Select a font.
$font = Text::Layout::FontConfig->from_string("DejaVuSerif 40");
$layout->set_font_description($font);
#$font->set_shaping;
$layout->set_markup( qq{<u>the <s>quick</s> <span underline="double">brown</span> fox _ <span overline="single" overline_color="red">jumps</span></u>} );
$layout->render( 50, 350, $text );
$font->{underline_thickness} = 45;
$font->{underline_position} = -140;
$font->{strikeline_position} = 320;
$font->{overline_position} = 600;
$layout->set_markup( qq{<u>the <s>quick</s> <span underline="double">brown</span> fox _ <span overline="single" overline_color="red">jumps</span></u>} );
$layout->render( 50, 250, $text );
$pdf->save("strikes.pdf");
|
