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
|
#!/usr/bin/perl
# demonstrate file attachment annotations.
#
# Note that some PDF/A-oriented PDF validation tools (such as PDF Tools Online)
# object to embedded (attached) files in Archival PDFs, as the fear is that
# this can lead to external file dependencies. It also objects to something
# about a missing Subtype in samples 5 and 6, which may or may not be PDF/A-
# related, but I haven't yet been able to find anything that appears to be
# missing a Subtype entry.
use strict;
use warnings;
use lib '../lib';
use PDF::Builder;
use PDF::Builder::Util;
my $compress = 'none'; # uncompressed streams
#my $compress = 'flate'; # compressed streams
my $pdf = PDF::Builder->new(-compress => $compress);
#my $f1 = $pdf->corefont('Helvetica', -encode=>'latin1'); # unused
my $f2 = $pdf->corefont('Helvetica-Bold', -encode=>'latin1'); # page heading
my $page = $pdf->page();
$page->mediabox(595,842);
# just some random text near the top of the page
my $gfx = $page->gfx();
my $text = $page->text();
$text->textlabel(50,750, $f2,20, 'Hello World!', -color=>'red');
# draw a grid with 50pt blocks to see where rectangles are
$gfx->strokecolor("#CCC");
my $gridH = 700;
my $gridW = 500;
# horizontal grid lines and labels
for (my $i=0; $i<=$gridH; $i+=50) {
# i is Y coordinate (bottom is 0)
$gfx->poly(10,$i+10, $gridW+10,$i+10);
$text->textlabel($gridW+15,$i+7, $f2,10, $i);
}
# vertical grid lines and labels
for (my $i=0; $i<=$gridW; $i+=50) {
# i is X coordinate (left is 0)
$gfx->poly($i+10,10, $i+10,$gridH+10);
$text->textlabel($i+8,$gridH+20, $f2,10, $i);
}
$gfx->stroke();
# location of file relative to where you run the example from
my $base = "examples/resources/";
# offset everything by 10,10 so grid has a little space around it
# in each call, file name and click area -rect are required
# single click enables drag and drop of icon, double click to run
# default pushpin, 50x100 size at LL=50,50, default border
# active area is supposed to be 50x50, but it seems to be little
# larger than the visible icon! BTW, the icon can be dragged and dropped (will
# ask for confirmation to save PDF).
my $ant1 = $page->annotation();
$ant1->file_attachment($base."sample.txt",
-rect=>[60,60, 110,160]
# usual default icon is PushPin
# icon color default to black
);
# paperclip icon, 100x150 size at LL= 50,200, default border
my $ant2 = $page->annotation();
$ant2->file_attachment($base."pod2htmd.temp",
-rect=>[60,210, 160,360],
-icon=>'Paperclip',
-color=>[0.8] # very light gray icon (grayscale)
);
# tag icon, 150x100 size at LL= 250,200, border 10pt thick
my $ant3 = $page->annotation();
$ant3->file_attachment($base."pod2htmd.temp",
-rect=>[260,210, 410,310],
-icon=>'Tag',
-color=>[1, 0.4, 0.1], # orange icon (RGB)
-border=>[0,0, 10]
);
# graph icon, 100x100 size at LL= 250,50, border 10pt thick
my $ant4 = $page->annotation();
$ant4->file_attachment($base."pod2htmd.temp",
-rect=>[260,60, 360,160],
-icon=>'Graph',
-color=>[1, 1, 0, .5], # dark blue icon (CMYK)
-opacity=>0.35, # mostly translucent
-border=>[10,10, 10]
);
# None icon, 100x100 size at LL= 50,400, border 10pt thick
# Notice that although the icon is "None", since an icon is "used", the
# border is suppressed
my $ant5 = $page->annotation();
$ant5->file_attachment($base."sample.txt",
-rect=>[60,410, 160,510],
-icon=>'None',
-border=>[10,10, 10]
);
# None icon, 100x100 size at LL= 250,400, border 10pt thick, comment
my $ant6 = $page->annotation();
$ant6->file_attachment($base."sample.txt",
-rect=>[260,410, 360,510],
-icon=>'None',
-text=>'I am here',
-border=>[10,10, 10]
);
$pdf->saveas("$0.pdf");
$pdf->end();
exit;
__END__
|
