PDF-Create-1.08/ 000755 000765 000024 00000000000 12251772757 013530 5 ustar 00gabor staff 000000 000000 PDF-Create-1.08/CHANGES 000644 000765 000024 00000002304 12251772645 014516 0 ustar 00gabor staff 000000 000000
1.08 2013.12.11
Eliminate pipe from CGI test script t/09
Filehandle => FileHandle typo fixed #91312
1.07 2013.12.10
New maintainer SZABGAB
Tried to reconstruct entries in the CHANGES file
Some more test case
Code clean-up (remove indirect calls)
Remove Build.PL
use warnings;
Officially require perl 5.006.
Move example file to the eg/ directory
1.06 2010.07.06
1.05 2010.02.26
1.04 2009.07.13
1.03 200 2009.03.24
1.02 208.07.10
1.01 2008.06.03
1.00 2008.05.31
0.10 2008.05.31
0.09 2007.09.30
- Markus Baertschi, markus@markus.org
- Added stringml for multi-line strings
- Changed get_page_size to case-independent
0.08 2007.09.03
- Markus Baertschi, markus@markus.org
- Get back in sync with CPAN/PAUSE
- Fixed check for open file in Create.pm
- Touched up the README
0.07
- Markus Baertschi, markus@markus.org
- Added image samples to sample.pl
- Touched up the README
- Added check for open file in JPEG/GIFImages
0.06
- Fabien Tassin
- Added support for JPEG and GIF images
- Markus Baertschi, markus@markus.org
- Packaged for release on CPAN
0.01
- Fabien Tassin
- Original Release
PDF-Create-1.08/eg/ 000755 000765 000024 00000000000 12251772756 014122 5 ustar 00gabor staff 000000 000000 PDF-Create-1.08/lib/ 000755 000765 000024 00000000000 12251772756 014275 5 ustar 00gabor staff 000000 000000 PDF-Create-1.08/Makefile.PL 000644 000765 000024 00000001165 12251766376 015505 0 ustar 00gabor staff 000000 000000 #
# Makefile.PL for PDF::Create
#
use 5.006;
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => "PDF::Create",
VERSION_FROM => "lib/PDF/Create.pm",
ABSTRACT_FROM => "lib/PDF/Create.pm",
'PREREQ_PM' => {
'Carp' => 0,
'FileHandle' => 0,
'Data::Dumper' => 0,
},
LICENSE => "perl",
dist => { COMPRESS => "gzip", SUFFIX => "gz" },
clean => { FILES => '*.bak *.old mibs/*.dump *.pdf' . 'lib/*/*~ lib/*/*/*~' },
META_MERGE => {
resources => {
repository => 'http://github.com/szabgab/pdf-create',
}
},
);
PDF-Create-1.08/MANIFEST 000644 000765 000024 00000001136 12251772757 014662 0 ustar 00gabor staff 000000 000000 CHANGES
eg/sample-cgi.pl
eg/sample.pl
lib/PDF/Create.pm
lib/PDF/Create/Outline.pm
lib/PDF/Create/Page.pm
lib/PDF/Image/GIF.pm
lib/PDF/Image/JPEG.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
pdf-logo.svg
README
t/01-basic.t
t/02-string.t
t/03-image.t
t/04-drawing.t
t/05-outline.t
t/06-annotation.t
t/07-fonts.t
t/09-cgi-script.pl
t/09-cgi.t
t/11-encode.t
t/50-versioning.t
t/99-wifi-parabola.t
t/pdf-logo.gif
t/pdf-logo.jpg
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
PDF-Create-1.08/MANIFEST.SKIP 000644 000765 000024 00000000215 12251676677 015430 0 ustar 00gabor staff 000000 000000 ^Makefile(\.old)?$
^MANIFEST\.bak$
^Maintenance-.*
.*~$
(^|/)TAGS$
.*\.tar\.gz$
blib/
pm_to_blib
\.pdf$
\.tmp$
^devel/
.git/
^\..*
^MYMETA.*
PDF-Create-1.08/META.json 000644 000765 000024 00000001761 12251772757 015156 0 ustar 00gabor staff 000000 000000 {
"abstract" : "create PDF files",
"author" : [
"unknown"
],
"dynamic_config" : 1,
"generated_by" : "ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
},
"name" : "PDF-Create",
"no_index" : {
"directory" : [
"t",
"inc"
]
},
"prereqs" : {
"build" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"Carp" : "0",
"Data::Dumper" : "0",
"FileHandle" : "0"
}
}
},
"release_status" : "stable",
"resources" : {
"repository" : {
"url" : "http://github.com/szabgab/pdf-create"
}
},
"version" : "1.08"
}
PDF-Create-1.08/META.yml 000644 000765 000024 00000001031 12251772757 014774 0 ustar 00gabor staff 000000 000000 ---
abstract: 'create PDF files'
author:
- unknown
build_requires:
ExtUtils::MakeMaker: 0
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 1
generated_by: 'ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
name: PDF-Create
no_index:
directory:
- t
- inc
requires:
Carp: 0
Data::Dumper: 0
FileHandle: 0
resources:
repository: http://github.com/szabgab/pdf-create
version: 1.08
PDF-Create-1.08/pdf-logo.svg 000644 000765 000024 00000012203 12251673270 015744 0 ustar 00gabor staff 000000 000000
PDF-Create-1.08/README 000644 000765 000024 00000007613 12251673270 014405 0 ustar 00gabor staff 000000 000000 NAME
PDF::Create - create PDF files
DESCRIPTION
PDF::Create allows you to create PDF documents using a large
number of primitives, and emit the result as a PDF file or
stream. PDF stands for Portable Document Format.
Documents can have several pages, a table of content, an
information section and many other PDF elements. More
functionnalities will be added as needs arise.
Documents are constructed on the fly so the memory footprint is
not tied to the size of the pages but only to their number.
It's main advantage over the other PDF modules is that it does
not depend on other modules and is perl only (no compiler needed).
If you want a quick and dirty way of creating pdf's, PDF::Create
is for you. If you need a complete Framework to create complex
PDF stuff, you better dive into the PDF::API2 based modules.
More information about this module is included in this package.
SYNOPSIS
use PDF::Create;
my $pdf = new PDF::Create('filename' => 'mypdf.pdf',
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Fabien Tassin',
'Title' => 'My title',
);
my $root = $pdf->new_page('MediaBox' => [ 0, 0, 612, 792 ]);
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
# Prepare 2 fonts
my $f1 = $pdf->font('Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica');
my $f2 = $pdf->font('Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica-Bold');
# Prepare a Table of Content
my $toc = $pdf->new_outline('Title' => 'Document',
'Destination' => $page);
$toc->new_outline('Title' => 'Section 1');
my $s2 = $toc->new_outline('Title' => 'Section 2');
$s2->new_outline('Title' => 'Subsection 1');
$page->stringc($f2, 40, 306, 426, "PDF::Create");
$page->stringc($f1, 20, 306, 396, "version $PDF::Create::VERSION");
# Add another page
my $page2 = $root->new_page;
$page2->line(0, 0, 612, 792);
$page2->line(0, 792, 612, 0);
$toc->new_outline('Title' => 'Section 3');
$pdf->new_outline('Title' => 'Summary');
# Add something to the first page
$page->stringc($f1, 20, 306, 300,
'by Fabien Tassin ');
# Add the missing PDF objects and a the footer then close the file
$pdf->close;
INSTALLATION
Quick answer:
perl -MCPAN -e 'install PDF::Create'
Long answer:
To install manually, cd to the directory containing the unpacked
distribution and do one of the following:
a. Create a makefile by running Makefile.PL using the perl
program into whose library you want to install and then run
make three times:
perl Makefile.PL
make
make test
make install
b. To install into a private library, for example your home
directory:
perl Makefile.PL INSTALLSITELIB=$HOME/lib INSTALLMAN3DIR=$HOME/man
make
make test
make pure_install
AUTHORS
- Fabien Tassin
Original Author of PDF::Create
- Markus Baertschi, markus@markus.org
I have taken over maintenence of PDF::Create as Fabien has disappeared
and did no longer maintain it in the last years.
The last version of PDF::Create from Fabien is 0.06. All never versions
have been modified by me.
I maintain PDF::Create in git. You can access the repository directly
at http://github.com/markusb/pdf-create.
PDF-Create-1.08/t/ 000755 000765 000024 00000000000 12251772756 013772 5 ustar 00gabor staff 000000 000000 PDF-Create-1.08/t/01-basic.t 000755 000765 000024 00000004236 12251673270 015455 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing basic stuff
# - open / close
# - page root / new page
# - comment
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 11;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Testing Basic Stuff',
);
isa_ok( $pdf, 'PDF::Create' );
ok( $pdf->add_comment("Testing Basic Stuff"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
#ok( defined $root, "Create page root" );
isa_ok( $root, 'PDF::Create::Page' );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $page, "Page defined" );
# Page title and description
ok( $page->stringc( $f1, 40, 306, 700, 'PDF::Create' ), "stringc" );
ok( $page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" ), "stringc" );
ok( $page->stringc( $f1, 20, 306, 600, "Test: $0" ), "stringc" );
ok( $page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' ), "stringc" );
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/02-string.t 000755 000765 000024 00000006173 12251673270 015705 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing string functions
# - string l/r/c
# - string_underline
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 19;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Testing String Functions',
'Debug' => 0,
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("The is a PDF for testing"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Page title and description
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, "Test: $0" );
$page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' );
# Use the string functions
ok( $page->string( $f1, 15, 306, 380, 'Default string' ), "string" );
ok( $page->stringc( $f1, 15, 306, 360, 'Centered string (stringc)' ), "stringc" );
ok( $page->stringl( $f1, 15, 306, 340, 'Left aligned string (stringl)' ), "stringl" );
ok( $page->stringr( $f1, 15, 306, 320, 'Right aligned string (stringr)' ), "stringr" );
ok( $page->string( $f1, 15, 306, 280, 'Default string underlined' ), "string" );
ok( $page->string_underline( $f1, 15, 306, 280, 'Default string underlined' ), "string_underline" );
ok( $page->string( $f1, 15, 306, 260, 'Left string underlined', 'l' ), "string l" );
ok( $page->string_underline( $f1, 15, 306, 260, 'Left string underlined', 'l' ), "string_underline l" );
ok( $page->string( $f1, 15, 306, 240, 'Right string underlined', 'r' ), "string r" );
ok( $page->string_underline( $f1, 15, 306, 240, 'Right string underlined', 'r' ), "string_underline r" );
ok( $page->string( $f1, 15, 306, 220, 'Centered string underlined', 'c' ), "string c" );
ok( $page->string_underline( $f1, 15, 306, 220, 'Centered string underlined', 'c' ), "string_underline c" );
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/03-image.t 000755 000765 000024 00000005047 12251673270 015461 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing image-related functions
# - image
# - JPEG/GIF
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use File::Basename;
use Test::More tests => 9;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
my $gifname = dirname($0) . "/pdf-logo.gif";
my $jpgname = dirname($0) . "/pdf-logo.jpg";
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Testing Images (jpg, gif)',
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("The is a PDF for testing"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, "Test: $0" );
$page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' );
# Add a JPEG image
$page->string( $f1, 20, 200, 400, 'JPEG Image:' );
my $jpg1 = $pdf->image($jpgname);
ok( $page->image( 'image' => $jpg1, 'xscale' => 0.2, 'yscale' => 0.2, 'xpos' => 350, 'ypos' => 400 ), "jpg created" );
# Add a GIF image
$page->string( $f1, 20, 200, 200, 'GIF Image:' );
my $gif1 = $pdf->image($gifname);
ok( $page->image( 'image' => $gif1, 'xscale' => 0.2, 'yscale' => 0.2, 'xpos' => 350, 'ypos' => 200 ), "gif created" );
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/04-drawing.t 000755 000765 000024 00000006427 12251673270 016036 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing drawing-related functions
# - line, path, stroke
# - color
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 21;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Simple Test Document',
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("The is a PDF for testing"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 620, "Test: $0" );
$page->stringc( $f1, 20, 306, 590, 'Markus Baertschi (markus@markus.org)' );
# Draw some graphics
ok( $page->line( 100, 200, 100, 600 ), "line" );
$page->line( 100, 200, 500, 200 );
$page->line( 100, 600, 500, 600 );
$page->line( 500, 200, 500, 600 );
$page->line( 300, 200, 300, 600 );
$page->line( 100, 400, 500, 400 );
for ( my $x = 100 ; $x <= 500 ; $x = $x + 25 ) { $page->line( $x, 395, $x, 405 ); }
for ( my $y = 200 ; $y <= 600 ; $y = $y + 25 ) { $page->line( 295, $y, 305, $y ); }
#ok($page->newpath(),"newp0ath");
#ok($page->setrgbcolorstroke(1, 0.0, 0.0),"setrgbcolorstroke");
ok($page->setrgbcolor(0.1, 0.3, 0.8),"setrgbcolor");
ok($page->set_width(10),"setwidth");
ok($page->moveto(270,100),"moveto");
ok($page->lineto(300,160),"lineto");
ok($page->lineto(330,100),"lineto");
ok($page->lineto(270,100),"lineto");
#ok($page->closepath(),"closepath");
#ok($page->closestroke(),"stroke");
ok($page->fill(),"fill");
ok($page->stroke(),"stroke");
ok( $page->set_width(2), "set_width" );
my ( $x, $y, $x2, $y2 );
ok( $page->newpath, "newpath" );
ok( $page->setrgbcolorstroke( 0.1, 0.2, 1 ), "setrgbcolorstroke" );
ok( $page->moveto( 100, 400 ), "moveto" );
for ( $x = -3.14 ; $x <= 3.14 ; $x = $x + 0.03 ) {
$y = sin($x);
$y2 = 400 + int( $y * 2000 ) / 10;
$x2 = 300 + int( $x * 2000 / 3.14 ) / 10;
$page->lineto( $x2, $y2 );
}
ok( $page->stroke, "stroke" );
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/05-outline.t 000755 000765 000024 00000006055 12251673270 016060 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing TOC/Outline
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 13;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Simple Test Document',
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("The is a PDF for testing"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, "Test: $0" );
$page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' );
# Create a Outline/TOC
ok( my $out0 = $pdf->new_outline( 'Title' => 'Title page', 'Destination' => $page ), "new_outline" );
# Some more pages with outline
$page = $root->new_page;
$page->stringc( $f1, 40, 306, 700, 'Section 1' );
ok( my $out1 = $pdf->new_outline( 'Title' => 'Section 1', 'Destination' => $page ), "new_outline" );
$page = $root->new_page;
$page->stringc( $f1, 40, 306, 700, 'Section 2' );
ok( my $out2 = $pdf->new_outline( 'Title' => 'Section 2', 'Destination' => $page ), "new_outline" );
$page = $root->new_page;
$page->stringc( $f1, 40, 306, 700, 'Section 2.1' );
ok( my $out21 = $pdf->new_outline( 'Title' => 'Section 2.1', 'Destination' => $page, 'Parent' => $out2 ),
"new_outline with parent" );
$page = $root->new_page;
$page->stringc( $f1, 40, 306, 700, 'Section 2.2' );
ok( my $out22 = $pdf->new_outline( 'Title' => 'Section 2.2', 'Destination' => $page, 'Parent' => $out2 ),
"new_outline with parent" );
$page = $root->new_page;
$page->stringc( $f1, 40, 306, 700, 'Appendix' );
ok( my $app = $pdf->new_outline( 'Title' => 'Appendix', 'Destination' => $page ), "new_outline" );
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/06-annotation.t 000755 000765 000024 00000006062 12251673270 016552 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing annitations
# - Link
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 13;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Testing Basic Stuff',
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("Testing Basic Stuff"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, "Test: $0" );
$page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' );
my $uri = 'http://search.cpan.org/~markusb/PDF-Create/';
# Clickable URI with visible box around it
$page->string( $f1, 15, 150, 440, "Clickable Link" );
ok( $page->string( $f1, 15, 150, 400, "$uri" ), "string" );
ok( $page->string_underline( $f1, 15, 150, 400, "$uri" ), "string_underline" );
ok( $pdf->annotation( 'Subtype' => 'Link',
'x' => 145,
'y' => 395,
'w' => 321,
'h' => 25,
'URI' => 'http://search.cpan.org/~markusb/PDF-Create',
'Border' => [ 1, 1, 1 ]
),
"annotation"
);
# Clickable URI with invisible box around it
$page->stringc( $f1, 15, 306, 240, "Clickable Link Centered" );
ok( $page->string( $f1, 15, 306, 200, "$uri", 'c' ), "string" );
ok( my $len = $page->string_underline( $f1, 15, 306, 200, "$uri", 'c' ), "string_underline" );
ok( $pdf->annotation( 'Subtype' => 'Link',
'x' => 306 - ( $len / 2 ),
'y' => 200,
'w' => $len,
'h' => 15,
'URI' => 'http://search.cpan.org/~markusb/PDF-Create',
'Border' => [ 0, 0, 0 ]
),
"annotation"
);
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
PDF-Create-1.08/t/07-fonts.t 000755 000765 000024 00000006411 12251673270 015530 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Testing fonts
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 32;
# we want the resulting pdf file to have the same name as the test
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
###################################################################
#
# start testing
#
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Testing Basic Stuff',
);
ok( defined $pdf, "Create new PDF" );
ok( $pdf->add_comment("Testing Fonts"), "Add a comment" );
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
ok( defined $root, "Create page root" );
# Prepare font
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
ok( defined $f1, "Define Font" );
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
ok( defined $root, "Page root defined" );
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, "Test: $0" );
$page->stringc( $f1, 20, 306, 550, 'Markus Baertschi (markus@markus.org)' );
# Prepare fonts
my %font;
my $f_helv = define_font('Helvetica');
$font{'Courier'} = define_font('Courier');
$font{'Courier-Bold'} = define_font('Courier-Bold');
$font{'Courier-Oblique'} = define_font('Courier-Oblique');
$font{'Courier-BoldOblique'} = define_font('Courier-BoldOblique');
$font{'Helvetica'} = define_font('Helvetica');
$font{'Helvetica-Bold'} = define_font('Helvetica-Bold');
$font{'Helvetica-Oblique'} = define_font('Helvetica-Oblique');
$font{'Helvetica-BoldOblique'} = define_font('Helvetica-BoldOblique');
$font{'Times-Roman'} = define_font('Times-Roman');
$font{'Times-Bold'} = define_font('Times-Bold');
$font{'Times-Italic'} = define_font('Times-Italic');
$font{'Times-BoldItalic'} = define_font('Times-BoldItalic');
my $y = 500;
foreach my $f ( sort keys %font ) {
ok( $page->stringc( $font{$f}, 20, 300, $y, $f ), "Writing with font $f" );
$y -= 30;
}
# Wrap up the PDF and close the file
ok( !$pdf->close(), "Close PDF" );
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
#
# TODO: Add test with ghostscript
#
#echo | gs -q -sDEVICE=bbox 06-wifi-parabola-broken.pdf
exit;
sub define_font
{
my $fname = shift;
my $ftype = shift;
my $fencoding = shift;
if ( !defined $ftype ) { $ftype = 'Type1'; }
if ( !defined $fencoding ) { $fencoding = 'WinAnsiEncoding'; }
ok( my $f = $pdf->font( 'BaseFont' => $fname,
'Subtype' => $ftype,
'Encoding' => $fencoding
),
"Defining font $fname"
);
return $f;
}
PDF-Create-1.08/t/09-cgi-script.pl 000755 000765 000024 00000002625 12251673270 016620 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# sample cgi-script to produce a PDF on the fly
#
# Markus Baertschi, markus@markus.org
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use CGI;
#
# Write HTTP header with application/pdf as doc type
#
# If you want the PDF to open in an external application
# You should change this to
# -type => 'application/x-pdf', -attachment => $pdfname
#
print CGI::header( -type => 'application/pdf' );
#
# Start the pdf with '-' (stdout) as filename
#
my $pdf = PDF::Create->new( 'filename' => "-",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Simple Test Document',
);
# create the document root
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
# Prepare 2 fonts
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
# Write some text to the page
$page->stringc( $f1, 40, 306, 700, 'PDF::Create' );
$page->stringc( $f1, 20, 306, 650, "version $PDF::Create::VERSION" );
$page->stringc( $f1, 20, 306, 600, 'Simple Test Document' );
$page->stringc( $f1, 20, 300, 300, 'Fabien Tassin' );
$page->stringc( $f1, 20, 300, 250, 'Markus Baertschi (markus@markus.org)' );
# Wrap up the PDF and close the file
$pdf->close;
PDF-Create-1.08/t/09-cgi.t 000755 000765 000024 00000001601 12251701537 015135 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# 09-cgi.t
#
# cgi test script
#
# run the cgi-test and check the resulting output
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use File::Basename qw(dirname);
use File::Spec;
use PDF::Create;
use Test::More tests => 2;
use Config;
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
my $cginame = File::Spec->catfile(dirname($0) . "/09-cgi-script.pl");
#
# run the cgi
#
my @out = `$Config{"perlpath"} $cginame`;
shift @out;
shift @out;
#diag $out;
diag $pdfname;
if (open my $fh, '>', $pdfname) {
print $fh @out;
close $fh;
}
ok scalar(@out), "CGI executes";
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
PDF-Create-1.08/t/11-encode.t 000644 000765 000024 00000006452 12251673270 015631 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
use strict;
use PDF::Create;
use Test::More;
# The cases array contains test-cases
# In each triple the first value is the expected return value
# of the encode() method.
# The second and third values are the two parameters
# of the encode() method.
# The third parameter is optional but it can also be a complex
# data structure.
# expected, type, value
my @cases = (
[undef, 'null'],
['anything', 'null', 'anything'], # any value
[undef, 'number'],
['value', 'number', 'value'], # any value
["\n", 'cr'],
["\n", 'cr', 'abc'], # TODO: probably should complain that a 2nd, unnecesssary param was given
['true', 'boolean', 'true'],
['false', 'boolean', 'false'],
['false', 'boolean', '0'],
['true', 'boolean', '42'], # any other value as the 3rd item
# ['true', 'boolean', undef], # TODO: give error or eliminate warnings
['any string', 'verbatim', 'any string'], # anything
['x', 'verbatim', 'x'], # anything
# [undef, 'verbatim', undef], # TODO should give error, now fails with unknown type as the do{} fails
# [0, 'verbatim', 0], # TODO should work?, now fails with unknown type as the do{} fails
['(any string)', 'string', 'any string'], # anything
['(x)', 'string', 'x'], # anything
['()', 'string', undef], # TODO what should happen? eliminate warnings
['(0)', 'string', 0],
# TODO: shouldn't this check if the given value was indeed a number?
['any string', 'number', 'any string'], # anything
['x', 'number', 'x'], # anything
[undef, 'number', undef], # TODO eliminate warnngs
[0, 'number', 0],
['/any string', 'name', 'any string'], # anything
['/x', 'name', 'x'], # anything
['/', 'name', undef], # TODO ???, eliminate warnings
['/0', 'name', 0],
['[/anything]', 'array', [
['name', 'anything'],
]
],
['[/42 abc]', 'array', [
['name', 42],
['verbatim', 'abc'],
]
],
# TODO more complex test cases for dictionary
["<<\n/42 /text\n/abc (qwe)\n>>", 'dictionary', {
42 => ['name', 'text'],
abc => ['string', 'qwe'],
}
],
# TODO more complex test cases for object
["abc 43 obj\n/qwe\nendobj", 'object', [
'abc', 43, ['name', 'qwe']
]
],
["abc 45 R", 'ref', ['abc', 45]],
["<<\n/abc 46\n/23 /qwe\n>>\nstream\nsome data\nendstream\n",
'stream', {
Data => 'some data',
abc => ['number', 46],
23 => ['name', 'qwe'],
}
],
);
plan tests => 2 + @cases;
{
my @warn;
local $SIG{__WARN__} = sub { push @warn, @_ };
PDF::Create::encode();
# TODO eliminat warning from code caused by undef in $type
like $warn[1], qr/PDF::Create::encode: empty argument, called by/, 'no params';
};
eval {
PDF::Create::encode('something');
};
like $@, qr{Error: unknown type 'something'}, 'exception';
my %too_random = map { $_ => 1 } qw(dictionary stream);
foreach my $c (@cases) {
my ($expected, $type, $value) = @$c;
SKIP: {
if ($too_random{$type}) {
if (defined $ENV{PERL_PERTURB_KEYS} and $ENV{PERL_PERTURB_KEYS} == 2
and defined $ENV{PERL_HASH_SEED} and $ENV{PERL_HASH_SEED} == 1) {
} else {
skip 'PERL_PERTURB_KEYS=2 and PERL_HASH_SEED=1 has to be in order to have predictable Hashes', 1;
}
}
my $name = $type . (defined $value ? ",$value" : '');
is PDF::Create::encode($type, $value), $expected, $name;
}
}
PDF-Create-1.08/t/50-versioning.t 000644 000765 000024 00000001554 12251673270 016560 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# Check module versions against PDF::Create version
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 5;
my $version = $PDF::Create::VERSION;
ok($version eq $PDF::Create::VERSION,"PDF::Create version is $PDF::Create::VERSION");
ok($version eq $PDF::Create::Page::VERSION,"PDF::Create::Page version is $PDF::Create::Page::VERSION");
ok($version eq $PDF::Create::Outline::VERSION,"PDF::Create::Outline version is $PDF::Create::Outline::VERSION");
ok($version eq $PDF::Image::GIF::VERSION,"PDF::Image::GIF version is $PDF::Image::GIF::VERSION");
ok($version eq $PDF::Image::JPEG::VERSION,"PDF::Image::JPEG version is $PDF::Image::JPEG::VERSION");
PDF-Create-1.08/t/99-wifi-parabola.t 000755 000765 000024 00000011560 12251673270 017130 0 ustar 00gabor staff 000000 000000 #!/usr/bin/perl -w
#
# PDF::Create - Test Script
#
# Copyright 2010- Markus Baertschi
#
# Please see the CHANGES and Changes file for the detailed change log
#
# As example we draw a parabola which can be used to focus wifi signals
#
# This has not much to do with testing, but I like it, so it remains :-).
#
BEGIN { unshift @INC, "lib", "../lib" }
use strict;
use PDF::Create;
use Test::More tests => 1;
my $pdfname = $0;
$pdfname =~ s/\.t/\.pdf/;
my $pdf = PDF::Create->new( 'filename' => "$pdfname",
'Version' => 1.2,
'PageMode' => 'UseOutlines',
'Author' => 'Markus Baertschi',
'Title' => 'Parabolic WiFi Antenna'
);
my $root = $pdf->new_page( 'MediaBox' => $pdf->get_page_size('A4') );
# Prepare 2 fonts
my $f1 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica'
);
my $f2 = $pdf->font( 'Subtype' => 'Type1',
'Encoding' => 'WinAnsiEncoding',
'BaseFont' => 'Helvetica-Bold'
);
# Add a page which inherits its attributes from $root
my $page = $root->new_page;
# Write the title
$page->stringc( $f2, 25, 300, 770, 'Parabolic WiFi Reflector Template' );
$page->stringc( $f1, 12, 300, 740, 'Markus Baertschi (markus@markus.org)' );
# General parameters
my $dy = 310; # y offset from page origin
my $ay = 280; # y amplitude
my $dx = 100; # x offset from page origin
my $p = 100; # distance from back to focal point
$page->stringl( $f2, 10, 100, 710, 'Introduction' );
$page->stringl( $f1, 10, 100, 700,
'This template allows you to build a simple, but effective WiFi range extender. The reflector described' );
$page->stringl( $f1, 10, 100, 690,
'here will concentrate the signal of your access point in one direction. THe range in this direction will' );
$page->stringl( $f1, 10, 100, 680, 'be much better at the expense of the range in all other directions.' );
# Write instructions
$page->stringl( $f2, 10, 100, 660, 'Instructions:' );
$page->stringl( $f1, 10, 100, 650, '- Make square or rectangular reflector from metallic material (Tin foil, etc)' );
$page->stringl( $f1, 10, 100, 640, '- Bend reflector to parabolic shape' );
$page->stringl( $f1, 10, 100, 630, '- Fix reflector with the antenna at the focal point' );
# Write the labels
$page->stringl( $f1, 12, $dx + $p + 10, 460, 'Parabola (The reflector must be shaped like this)' );
$page->stringl( $f1, 10, $dx + $p + 30, $ay - 10, 'Focal Point (Antenna goes here)' );
# Draw the focal point
my $l = 30; # Length of cross
$page->line( $dx + $p - $l, $dy, $dx + $p + $l, $dy );
$page->line( $dx + $p, $dy - $l, $dx + $p, $dy + $l );
$page->newpath;
$page->set_width(0.5);
$page->setrgbcolorstroke( 0, 0, 0 );
$page->moveto( $dx + $p - $l / 2, $dy );
$page->curveto( $dx + $p - $l / 2, $dy + $l / 2 * 0.55, $dx + $p - $l / 2 * 0.55, $dy + $l / 2, $dx + $p, $dy + $l / 2 );
$page->curveto( $dx + $p + $l / 2 * 0.55, $dy + $l / 2, $dx + $p + $l / 2, $dy + $l / 2 * 0.55, $dx + $p + $l / 2, $dy );
$page->curveto( $dx + $p + $l / 2, $dy - $l / 2 * 0.55, $dx + $p + $l / 2 * 0.55, $dy - $l / 2, $dx + $p, $dy - $l / 2 );
$page->curveto( $dx + $p - $l / 2 * 0.55, $dy - $l / 2, $dx + $p - $l / 2, $dy - $l / 2 * 0.55, $dx + $p - $l / 2, $dy );
$page->stroke;
$ay = 50; # y amplitude
$dy = 100; # y offset from page origin
$dx = 300; # x offset from page origin
$p = 10; # distance from back to focal point
$page->newpath;
$page->set_width(2);
$page->setrgbcolorstroke( 0.1, 0.2, 1 );
$page->moveto( $ay * $ay / ( 4 * $p ), -$ay );
for ( my $y = -$ay ; $y <= $ay ; $y = $y + 2 ) {
my $x = $y * $y / ( 4 * $p );
$page->lineto( $x + $dx, $y + $dy );
}
$page->stroke;
my $i = 0;
$page->newpath;
$page->set_width(1);
$page->setrgbcolorstroke( 0.1, 0.2, 1 );
$page->moveto( $ay * $ay / ( 4 * $p ), -$ay );
for ( my $y = -$ay ; $y <= $ay ; $y = $y + 2 ) {
my $x = $y * $y / ( 4 * $p );
$page->lineto( $x + $dx + $i, $y + $dy );
$i++;
$i++;
}
$page->stroke;
$page->newpath;
$i = 0;
$page->moveto( $ay * $ay / ( 4 * $p ), -$ay );
for ( my $y = -$ay ; $y <= $ay ; $y = $y + 2 ) {
my $x = $y * $y / ( 4 * $p );
$page->lineto( $x + $dx + $i, $y + $dy + $ay * 2 );
$i++;
$i++;
}
$page->stroke;
$page->line( $dx + $ay + 12, $dy - $ay, $dx + $ay + 12, $dy + $ay );
$page->line( $dx + $ay - 10, $dy - $ay + 30, $dx + $ay - 10, $dy + $ay + 30 );
$page->line( $dx + $ay * 3 + 12, $dy + $ay, $dx + $ay * 3 + 12, $dy + $ay * 3 );
$page->set_width(3);
$page->line( $dx + $ay * 2, $dy, $dx + $ay * 2, $dy + $ay * 2 );
# Wrap up the PDF and close the file
$pdf->close;
################################################################
#
# Check the resulting pdf for errors with pdftotext
#
SKIP: {
skip '/usr/bin/pdftotext not installed', 1 if (! -x '/usr/bin/pdftotext');
my $out = `/usr/bin/pdftotext $pdfname /dev/null 2>&1`;
ok( $out eq "", "pdftotext $out");
}
PDF-Create-1.08/t/pdf-logo.gif 000755 000765 000024 00000060620 12251673270 016166 0 ustar 00gabor staff 000000 000000 GIF89a,qçÿ
! "$"')&*,),-+-/,342796=>åÙé˦KŸî›õêRY¿Ž
ûu© Dh(¹·ïß%ÁV)[Êlªã}‘—Rž*tçâG«žîšºlëµ±Ó†]Š4nÈHþdN¾¼y”«œ-•KÖ*³¿d¥z—þò¶z5w>ø´íî Í& vVgàu}ö
8ãŒðvÞ„:–«,‡Yq‚
æ!g—=×Ùs F‡hž ¨bi+žÈ"‚)v÷Ý3Í8³HV¨ãŽ/5,¿ÀµÞ|ÍÒÜrG^¶Ê\žÝ5âg ^FÚjSrWeŠWH– r¹¥–V–Èh¸5øŒƒ®ìÆl¶ùÑ…G7Ö/¬¤’ ný’¡žìy† h"žÖ_€„Ž¹—†žx¨˜ˆŽek§”yæ3Ð8ˆÂxnfª)za—${€ 9¤^p "ˆ§š¨ê‹.¶ê¨«þÜI£‹eVêÌ3g:#F„knê+›`iQœ+©è)—†mљᱧÒU* ‡1iÛ´±v)eµ_>z-¢§ÌÚ]£Œ5Í4ƒL$
äøëºçQ6…+¿$Û—¼wµ‡Üq$nfg¾©¦úZ•QRùmÀ1NYðÀÖ²*Ý‚
Œ Í™å:ÃÌ,¨Ëîž]˜aqF.k¤†©°ÂÊ*ĵ•ËÇfæ“ù
媯Æ\í«Þ¦0–³†›3“[#2*`Šñйoqe²
+ðåR¬Ó÷ÂE/_NBYµ~b^+]¢\‡) ¢16Zb™ÚìbZ±žØ'©Ég_Q¼ßüŽ¶ ƒ‚ªc¤KΑ"ÊBÃx1k4„¡‰ ø †}ãvß(Ûí4i¶‡A¬F@D3t:þ“hÂa!ãs<¥‰ _zrb)F†È™Æ8îÉõ¤ç7è ð?¡ùR;µ70ï¼³áæ%s×Àð±‘Fc†>‡1 !ˆ’m/u›»`Á´ žå¬© ’ÒlÊDY0Í>õR!WiQ¾ô/u‰Ò 1:˜Ùn‡ÝÀ¤øÄ×@ÇݳFÌ(Wã` †US¦T–+2·4¥õqOK:š 77Ÿ:áMz…ü "=ó,é °0wqÙÖ0
©0®’äÈþÆ8FXÜͳl<³U›¡Õc(c¥p€c Û&áë=ñ:îÝ#¯ =ë‰ó{kh9„Ð%1÷¹†é"ÕN\îUÙ
âUÚâ®âëa'Q*1eƒ«ºÐ€K‰›©;+tÇ«)+°©Jj6„g¡+q9×ÀôM‘ö˦åK+%îáȆ0Ë[Ûóòw»-W }ËU¯—¾Ò |’;·(æ.$;«+ *ŸB*
¡Ç!]|¢ø,ÍÌGiB-ª6³`Uu”A–m7>ªCLB£ãêaùÊÅÛÞ"uhl3A ¬°Ü×~ £ÓZæCY™z9„ + ê„eã§9Fžþ^<èÅ‹¶pµ§á(—6rÄö’³Å<ÑKÏc6ˆÌ@Æ1Ž\¬L™Ê:JÓ4›¿Ù/HsÓ\AÅŽçNù㋨î2c|¡4\¤¨3*&€‰—AßGeŽ ËSw;#,ï˜\®OrxºàÀ|}ž;VZ„cŽG§fÐÞéNz ±9¦DÑJtO& çR˜×‹ºð‹í´„Ãqg¨¹˜H>£ŸÛ¨Ï@ CÃƾÊë Qfƒ$¾or‘¯U®x§ £n|–xiúXTl%Ýtœ ‚'†DçÌR†ŽlCÕwvøT‡i¶5Žˆ¶&´0Ž‘|¸Ýæþ* ì=¹’š›5¤Çâ´¤…ƒÍ;ŽgñÓEìâé9ò"§Õ˜ÚÕ>òï´slS-ôlÙ¶òta}æ >ùÜè…,
V›Ç]µ “ÖzœxyÝnAâ7•t×µìóû˜+©
*ƒ(ÆVáô¼ëœ0(ïÈ39¾ñÙ¶°„Eòír{XŒ?YÈF1tÑ][=ä•Ñºt»~rû wsû
²Á>Ð5WÌñ;óØGÈ麱Íuц’
»2=œ èhøíT á!W¸ªô<Ûn ¤ÏcÝÃ(ƺ?þxš¼[òZÿ±¼þ_FYœEÚÒV¹ÇœkAºÛ‘
þœ*¾¥ŽÇצ!idÁ0;·z èˆíl#n{Û–|÷l£Ó‘áÞt ã ?tñߦù_YÉ:Ø×?ÅB?™5 Òr|BHÅâ
¡fÓ¦€$ä$¢£!k5ª÷2 t
`gï [ß { 8v;¯vFJÆFnÔ{O÷^ABuû'˜ƒ|ÁÆ|ò†<^GMò³Se§b`VZóÂg„d×DZ” RQÐÁ:—‘ v×u[ïÐ
äàw|W‚—d‚&ØC·¼¥ ¾‡ Å µ0 ¿Àă$! d%y‹ÆSKte"ôh„D2ȃlDÇórÏ£JÔ4y4H8çŸRTúñ/þ}Áï {‹qÙ {æm•C"EU”‚6ùÔ{„6 bX ê¶6jèX/o¸h^÷8x4¢s2u"oQ”P8v< ™6ó'†À›Ã°+éÙ&Y©šº©œÚ©žú© ª¢:ª¤Zª¦ªh@˜vÚvð#QuƒÑÙ <Ê£ J¨…ŠwA¶w¤™jC6OÖ¯ ‘ u\ÕéÂì™pªÎú¬ÐÒ
m0™†
k×7F"X¤§}Ñx
Ðë°ž{
ú™éWgÅ[ÊÈwÛO·µ3ŽƒR_h¿|h›mQ1•ª#—: °;°¡*ïy§< ½Øv¯Š¹ £áÚêà§ïP« *t³UŒã ¤—Dd|†¡]ØFá¹Uc|̧ìÖ6ñÉÍJþ°.û²0kªf‘¡ssׄ„¸,n¡ˆõÐï@«ØÙ ¡9´²g¨ª6[kzv6´Ödƒv¯éF†µ ³0©µ949 Œ€©1Ûµ^ëµmà˜ØÚ'ãØ‹ãô Ë è0®;«<úš±úQQ•gRu^<Ã…¹²[qDã9†\ÅUe8 ÈÚ¯çÑŸŠÐ²_»¸Œ °Õê–†À x£°É¡<—Á'ÍÁí°¹›;®Kpë™)qF‚Ua;ä Tu+ŠqâižRuðò üª¬–šµ\Û¸º»»¥:§„i
}²}-}ËÅ" ëíPï°¹kû¹¢«±E—•Êx¨ þuºŠz¡ªéC>ätÔÈUÅ0¸³0 ñ’>† ”©¸¼»¾ì»©3 ˜Ø*s„øŠ9U†Á³
ʹ@K*´²µj²ugò4XŒãë…RùdÅ°‰O: ° /gpµ¾œ[;r œÁœÁÉÐ
“/0ª—°Á|
ÀÐ
¢p Œ`;à pª#LÂ2LÂrfÀœ4:e…4Ì„ÈË ›ëÌ»¼Ë£èŠQØpº±#u:”d¶‚UM§‰ù·
/à 9çÛŒ0 ƒ©¾ÏÊþPÆf|ÆeŒû°Æk¼
[ðŸ*
kìllÆûàøpÆûp‚p¥j þwLÇu<ÈwÌÆkœÑ:§ƒÉ rc‡®:fvN ð ®«ë§:¨C»wišN,aZ(¯ KkŸôdø¸±9¾@" sÔÅñž“»Ðªh|˸|ÇÉŸÚ
¸üËtLÇøð ~,ª¶ ÌÈŒˆ ©Š‘¨ 9<%5ruP¨ OõàÚ¼¼Í˼ ºä@½ïÀ
É®ÊHšEñTd•r6Úù·Š©³@µ¿€)›)Ì:‰€ÌȼòÀËêËþüËø F ª]з,ѶzÉ É27…ÄŽæyË®=[É=« ~:±k ´áì ä°WΑ¨þÎYha¸õÎêdÁ|« uà¸L°ìÿ`Ë ýËç@Ë™ºÐ=mÇk|¡zÌCmÇ
¾˜c›€b·9,ç9A±”\ë€ÕBŒÉ™¬É ‹w ØjçGš²‰[8>&õgMÖš1í¡eXµ^ÇŶk )ÆÎÚÏIÆøÐ×·Œf ªBÔËü¬7Œ‘ŒÌ_¸ž/ìÁôгʫ¼ëÀ¹›û³äú™¢k~:¤êÇ«º…ò:–Kª‰‹ndèÀ<» ¥å—³,;ËaP¦F`çpËû€ïÐ×·|f`m ŸðþÜŸŠÔh,ÁÝÜÎÝÜÈÍÔŠþ‰
n7¼óFS;ur¿° ô@ÉØÜBܼâ*®Ï‹®V™
ä[ëaî
Xœ;º³·"Û·Ô¾‚k²° $¿ ùì¯_,˜v}ªxÆÑM\{¢ðË3À©ƒ]Æ#©¹û—Ǹ|pìà¸,£
Ô2{œ¦p\d6$õÉ›ó„ß]‘½¹X-±=ûX½¿éw®U{·Ã®BÆŒz&R…5.n亾ljÅuõ,lðÌD¢Â› nª³Æû0Z `Ü· Ø›úàûá›ÊµC`ågœÇ^à©ÊmÇ Þµû»Oƒ\˜
“…cU³Ý RØìáÍõpÉ[þk{®BK°GFÞÖŒ(¨ddé´õ¢À7¾Ì÷ •ÐOsÝuÍϸ|à]þ ¸lÔYŽË\î©-`áh, þàþpæ1û¾Œpf!vÛWMÙ4SàjßMô`çðàë ¼—íÑ[±áÜ™yÒ§~îý®£¬ºˆÏ‚æ¡‚;¸«½D¿ÐR7
ø˜M^ªO®ÇRî©w ÛŒ á·üéž Þ©e^Æû€ê0k°o9 ÌåVÙGPO42¬PEÜÝ ¶ŽÍûNç¹NÙD Ò»ÙŒè[ì´ßš”{cÙ8¶ö[çö^
l†Ê·h?ð߯}‘Z;à¦ZàgŒé›ÊÓh¬âŽþÆä>åì€Ë5\ògÌî/«êŒÀȱÞ<€$Í–' ÙWÍØ\ÙlÉ]
¨4 èáÐÙ…j¨ç«&Ø8hô÷^©\ ã; ³›JH^í%ÁŸÙNªÛnÇÝÞ©Àð×+¯©¦~ò*Ý
è®Ûmnÿöp K i ˜¦K’vE…t$¢ó [´îï‘MÙÚŒçêç?« çê£ÜÉW·ËX[«KUiÍ{§LP7äTÿè• \“ŽÓ•Éñ¥êñf ò™º¿ ,oÆÅ ªF€Ë½½úêþËwŒÀ 3;˜wê_ó¸4iq'™§|Å¡k
p´Nëß
ÞBìóâZ±âþ:®™-ºVi~&Ýp²‚¦«
ºÒÚðú†Ö8†P/õfH?7/Ôþù[‘µ¬Ó"oǦï`ŽÆ._ö¢škŸ×¶O÷4ûb ±êW)V¬\X*ÕÀU¥~åZÈ@ƒ{õìÙ£WÞFxîÖ«×®»zêÚÕC‡n]JuäR¾#3&ºq1³Ë.ÛÎn=µAƒæ,ÛÏ Ïž9k挙2eȆVkØ°Z³†ýÂú‹•À_E ûOìX²eÍžE{–‘¢µŠ.P€Wî\ºùÛ×_«I}'Ùz‡ŸÞ¼è¶"ŒwD]¹ ãõ0ñcÊym1Æ,× £¶¡þþZ%+Öе¦Ê•«¡¬_ 4À—Ï^=‹iÃëØ.÷ºvïÐÕû¨î:u)]¦Dgsf6rÌÉá º3[· ÙœMÚL;³cʦ&lê¬Y°`±"½°Ž°Ò¾‡ í$Î2߯ (ñ>þøö ®ÌŸ{l1Ì*¨à±}D˜Ë– )Øû23ƒµLh!…B5‡dIEC„~Ù`¢{b»H#zàá7ÜÜñh u@JIFä`j¦äœ{N§pÆù&›o¾éF›é !ÊgžI
)¥˜:ªð¾»ê¼¬ ªäöÜ‹¯K/9³ð 1»ëÁ ù¨k2ÂN¸OÊ"“KM3õ2þl̺äàŒ³PLs¥”ÑF+È!„ Zˆ‡\£èž{.ÚˆžÙn£žŽÜi8‘ÖÎ7r„S‡˜|c.Ôæ†Ä©§éŒ”î'%µcu©c¦¯YÉKoVÊeƒ-½äõ=0é³ÏNºò›“²Dà”¬ÀûRx º LŒs¦¥¶Zv>–.4òTdÏ…2Ô¡\dùLC¬ *1Ñ1j·z`<é]y©Ð™¹–žsÉ¥lh‚.ÔévÒ¦à €‚æ(¤´Sª™W…)ªñf¹4da€özå¸, q+[ºÊ,6¯w¤ÀLμ Ä ŠÇÎ!01¤¹æ`E–«
1„“…RþAÏÖVI…PÓR‘E!Ö:0Q0E#u”]Üì¥
ÞÞB²WFßKpplN¦qÂùqºn¤ë^µe˜áîÕ©d ϼH[¥–?Ø «ãŽ-¬ç¸ˆ- [¶“1•»‘ÄðåÙÇ|L<×bÄôŽÞœ rqHÐÓUôÄ|ò¹ÇÑFÛõF‰I¸•ðÕ49~eú7œ u §'ŸŠ4É¢FêmW!¦Jª©°r½ÍÉrW¿yÅœ³Ä'Y/AÂà> /¤Ø¡…›3[Ü –ëò@žÇ̈™0Ê+¿o309ù%î+A+Z«C':]éžFÛHjE$‰¥þ,õ‘àÜ 8‡¦šó¯èäTщŽ’‚²$ViçmÈpJ1æFžY¸‚4õkV: ½éɇ-À‚ áÓ¹ŒoLå; ]ѬHŽ0 ‚ß„*”§=™¦~ú3ׇîfšt9tT‘m6B©ŒD$%©”ÀöÀçÔd&^tÎNJe$møDUFYUñ $±)
£"õ(¼«#ÀñHHŒ
ßä´$9ã #:˜0 뤵ù]ÛûÛ%·±¿hÞBR¨o™`Ê ËSàš©ŸÄDg~Ð;äÐRÀî‡Ô ¾ ÈĹ93g=ÊÐ/XÓDÿô“N¬ì¢ì‘ºŒ°¨jöÄb½JbãÙé(ÇãtKþe …£'‡†íu6è$¸5%bà±íw{±ÏH _±ãôÖÊ+ +¹Cøã–åa‹0þ è†`3\äÇ™Q˜ðÌÎËÊ«»›BðòGØœ,eÔzÚ !q]oH¹ÏLu-ÇM´j4AœHhs†‘®sdú7„Tª
Å\!éöï‡H@‚©Ìf
®ehEÌeÞ
/WŽ3Ÿù'è#ˆ;´a j°q sdÅÛ –Xë(œ,b絺¢«p…•À«I¾Fv¼”Íê¢(¯ƒ§^öªñìf·)ÜGT5ae{âZ hcã¶l¨¥$žñT Ž@³ˆr‰\ºK˜Y¹íôx>†ñŽ ‘§Qà±ø¦hb+–®½òU“þééåODÀÚ ÜE^ŸÖ.Ú9þÐvþ" ›íléäIT4’uÉËlÓÊ„ß:—QàwøÌGÓˆ~ðïaÌÑ<¸u5 Í\WŒ¦°ùw0OEÎ"¢§>¯¯g_Å9}64EA ç$'»ëÆ}ƒW0i E«KXüÅc'Ïb+”Ÿd!àbºz‚¾ Àl™7EPº¥s2ÄR¾ë.ðRÿˆÉz"FaZ Ú¸š¬Q*ß𕈠jŽˆ#ß!¨³±·3²…Q#¯š›¯Zº+A†H…EH¹pû;ß3¼äÁ Ì™i¼ãs2ó°7¦+ˆçi"¼Ð¤è[±x‡NÒ{躎Xxþ¥Q¢1‘ù'n‰ÓC â Y*#Ø
…i’†¡ð(†Zˆ
7
+t»ÏOè;•‹Ñ# äÃ>œ‹yc¥ÃŠ!Ì
Ú6Ô°½ ŸÚ$ÊšF±À# *ú:~2Ž}I Y%A+›Ór¶2"˜
â¸íÈ%¤Š«¨˜Ï(…R_`Þó˜LÛA?ÔÅx#>zBÜúÅÜ:Âç!‘‰°¦Ê 8ÊzÄOb1¸‘ЬΒ{ášVjupÝ’ ’³)’„b(&Y\ò¯cpè9»¹;Y+š¤É1€:ú;ÀÀ]ÄÇ0Û ¶0ÀAD>þ\:´˜ˆ˜ˆ¬éc1ª^ÛH!*x1‰z/¥Ê±NäPœ A#,Z2˜¶é¸¦ø/º£’*¨3”¤ù…F¸ÁàR¦b„\ÌÇ™„ E¢7úFBB"œ}C¡ÐÉO [“À£É¶D¼ëb„Pøª‰B>¼’t"È6{@¾ò‡7ã©)Mj”Iì5Ð{‰ö:ª}Ú—OñšUZ¥oÀ ²¡¨*T¹*#ë ·ñ8ÚûŽÔ-G
¤
à½eŠIþ·TÍêJµn©
7¢•!”ÍãëIèƒZûžzDE‘ÄËÂ
z08<ƒ,¢±~š?£J´{@“ŽŒ ˜Ž,˜ØJÃjÓ¥‡yCœÜ ›¢4?)…3 7— ‹*[ÍñD¤
±Q¨»º³Ë¬0°BÊ« c¿¸’¢(N={=S̉?.ª‰ä€ªe@#RŒTùÈbŠs<º“
«°7s1”ú Y…FP€)·Ô$ÏÅÊK‰"¹¤˜öŒÁ+IÂÊXÂÜÔMsšÓ‰Ž ¥<‹z™‘°#cCŽ/ì" ¢Ì1ŒáA˜¢ ¶\!a°N©X:} †ˆÅ MþK<ü‡áâ–DÀÒ,ÕÒ-åÒ,U.ýÒ.Ó1õRI„0%Ó4=Ó-ýÒ1Ó0ES4íR9•Óµ …×ì%<µ
ölO±‚Ïø”ÏÈš¾ú\—I”_›š{Š ={¯-ôQù
#1² YB›¸Ž%¹%-†}Á:¢I£(¤‰Å_¨ŒZ+0É´TUU7uÓL;UV…ÕVU~öã?Ί?yˆAäB&äC6dÖPdYcäEG —H†dÑE ÅÐ µdK®äMVI!ÀA"æÆ®<Ò#cA'ÉŽf¨¶U†›Vvåÿ¡XŽeXIfø¯’›ˆa#’”clÃæ:¹;þà<æXEf"L§a|ˆÔ š‚ š‘æi–æ†(škVˆlÆæmÖæl¾ÐlŽÅpçq&çrNšq>çrVgYðdðe^I^&Hþòb†I#þÜÌlÐ}æg
ãè0î…0ÞÔ]z
Ú“?ððe‰iÅXqCªÈ6*ÙX‰Þc@^V„X"‹æcAfÞäŽfd
¤Q
‡€æ@i[QéáfnVçu~é)âwöQ^˜Tî ›vRnUN²~~›}Ö¥ê ꢦ-d`]>è©x¥¦;°”㨎¿†–^&ææݬ>ædîSt"F[Æ#Œfj¦fkç³.šXLkp 1"väFndI–d‘5ý“ż&ͼŽÅSèëRðëR8‚O¦é.I^! ž4´%œÞL|öiWneãYeXãÊ!Úºe¦~•¦~
_þŽ§Vèþ_~C…®j7–h¦hf hVm@Ž2a"Ñ8±ÕfH"—~éÜçüKg˜ÖëpnçÂîQ†bÆNe|Þi†QnVéçŸægË®ì£nЮ’›ÍîªMmW°ôå¨þŽ6ŒÛÊXb6f&®Fæ» ëô†f²žf‹)°÷†Ò‡ +FæÎÔ€²æI'•N银 j ˆX–q‹êq? ×ó£!+„àèfnfÖ@`¿äþ¹?•ÜóhFòßæëT@pE›ž6#s¿JÏéåžp†j’U¦âLÇ¥¸™åËã §n*©îÎŽc6–’ƒFsÔ–h5ÏjÚ ÄdF§7þ‡óƒ{çŸÏ°o»6ËÐA'(Uë€Wëÿ ôÐYzU½…øot.ð®Htg/ (GâSD#åNîã¶r*çÌåvçŽOwÚJcêÆìP_jXqíVùÒVõUïV+XõeŽYÇùG"«þ†GB‘m?dØd“ÎñIƒA™¤q^w,iCgvŽx‰ €F Ç&^ECeJWì ïz%aå ¾ðV¦ì0æôOg×.ÿð5Vj6þl¨†_u™ oÞmqóîjzOoH»•:§sÜ M•~R\çñ÷NkÓ u—¼nk‚ÏóùŽÒsæí§ UDor©ŸúªGb†Ú þ‹ßøÏ},Ïò£>êN—nµ/÷vÝå6¢hvyðŽù%¡šçã×ΊœßFšm¤wæEF
¹”œæÕhÕÐñ¦—ŵðµNgfz̧úF7Š$f›hŸr´ôjGnMÏôŸîþè6j’gצöpëvW^Šc¨†Š×WGºÏjÃÍc¼GQ¯ëä3’3šÛ/±Ðèïüáq
ˆT¥¦ÊUêW©U«ºr…0Â\² –’upં %Z4ˆ°TEY²V à Ê”*W²léòåJ „dsfÓÙ3h8AË íç³gΚ5Zô&Ò¡H‹ eZT™2fÌ J*•ê1dY·fEþæµë±aņ‰=V,¬X±Å„
æ–,\¶pç’e×-^»zí›Õwî¯À‚.ÌJðáÀ SL¥ðDˆ¿X f%kò*W¬^nHù ÄÍ Ìh±”Aƒ#+þZUÑ H QÇþ%Ä$Ìܺw«”)D›¶Ÿ8uöÜ)§ÐgN‰2gn´¹s¢J‰R…•ªÕ¨Ç¶sÝ®5«²ïpφ5»v,Y¼o‹±w«W½0¾tçîeÿ¾}Xú÷óçïy2e Vàb¤AÙ*‡e¶Ù/—ý’‹B’åÒ EäB–"ÚGY¤A©Pl²‘„o)ªØÛL6ý¤
O:ñ4£p3î”ÔRþ8ÞÔ”R7EuÕUÖMÕWZ}w¤wÜÁ…Ygµ‡W[ðÍGß]yÉ7%`…i˜C%6™` 9öXd‚I&&Hn6PBŽ¥b†¹äò¦cš]öæœ"^tà*²Ìi‘Ÿ½vÐm'x(o¾A“MM0ÆÈSNATPÊAw)¦™2gØqº’`©$wLÒ%×\ìµ|WÖUË,°â7ë}ýÙ
Ë/°4$ ¯_¶v ›B¶«†9ak É)P›"!E‡ êQš1˦l©”d(¢Ý¾$ÀL=åä p‹ÊˆÔqéV
ÝsLÕcSñ63$™dwIjåä’¥:¹|ꡇeþ•µ°ÅÖ^Xµ%—‚u ¦—*˜!c“ÆÊEÌbšž*Æ&Æ^²òfk©æÚ]Vš ¶¡è-Ì++„‹:=“MNÁý$ Ïçâx”MîNçTÐ@ U]vôVÞ¨_qW¤’ªžª°Zî½gåÁÃÔ2]Ïrk®úåº+e•
f¶+:† „‹I¸ç„« Ôàbs 4aB2ûPÆÛHÛÆf€êi¥ ]LEóœN`t1Ø^€˜—Ö¹K¹ŒìŽØ0ÍÈlŠy"iÈ´ãA6ºÓÊüÖšßyéN¨¡m.â'ÍP ŒÙÌÌå¨ë‘Ë&7Cœ‹*%ÇäTj'• ZÑŠF´¡¹ks×ù£òµ¾íXÇ}¥r_{R7Ÿ' þc,sÏëòç—¯ùoû {UWH‚Ù“¬•‘…Èb3S<%ñ´¡THë!ä¢Ïè™1Àö‚ƒœlÜRG6rш& Ì‘o:CsÆÒê$¨@
_ìCFZÆà B)kpa•ÁˆDºø…,Iüfÿ ’ɈýŠ1Z[BÄô¬2IÆ”{êSDä2…LQejcSjJáŠXÊQ´4/µQ9Ê„'„\Œ&)œ¸ë…Ñ _»ÚE¯?.
+7lß1£ŒCú+‘TSÏê IµYáo’_ëŸã?6q@_JL'AóÉ 9bÊHcw±O…jTaͽ¨ž«»Þþý®xÅ ´ -3†é»(Œ1ʉºØÆFÃ/æÓHöìÇíµ_ï[—¿´Éµuk“X»Ö@9X²PÞ,R¬>¸rQQ
“4 .Ìd®e
ËÙI©Y¡‘«,œ‡©Y:ã::*®JW½úUÓ
-06N z¹ &”¶5¹ 1Ñž$µa§ÄoŠlMìU9ƒW±ÆP"£T^DBÖ •¡œ•§V7K+Ð0·zQ¯®0Œ¨ â ˆpªê¢ãvÁQ:ƒ÷…6‰!Ò?ìË"‚f¸21 Y¡Ødx]!yµ¶@[ô¥¶} }íH§tœÛcJ}n3{"Ô¢þ[a ·_ æžI7Ü-PÆÂ;…Ò0£ÂìFí‘‹{ç2üŒ¨zbˆF”C1 Þâ £W`¸RÐ ƒc (6
„1VCÏUjK|Šlß"w“ã• ›8A¾Ê¨L¢dçÆ"2¦sgäweì²Ýe «±3w÷Í÷\ÇÝò8MÕYB E#äHΡuÖãäìܹ¤Ë˜}²P8F ƒÁ…U¿ª€¼HÖEIñi¯ÕmÒX…=?ØgøRN:y02]ÐÛUÈÜŒD=Mºßº €tcíÍќ߽[à1ŠM\qLWSŒŒKq]® ‰ítÜäþUÅ , €A/@ÓF¹E Âx˜Ä±W”´¥G¥ÕÞ%…
JùÙ,ÚUÚCìÞ·ÑT ^†i螥½ þC5 ÍñÝÍí †ÅÛõøDOôD.é ¥ G͈Ë1é›ãÝÏHž ! " œ B1lÔ¾ô ¨`!ü‹G)Œ5µŽÖÑ[œžýÐßü±ÙéW¤Ð\ a”É€ ÈpL]eH'I! c= ™qØ ZòaX‡-Ê/IŠô¹Ù¬®Ý‘º÷ñÀ
*< ƒ‹!C1ø Ζ0’”HÉZÄ…Å¥ Â(Z}™} !JÅ ¯DŒ‚(ÄþÈ@"ÛUˆeP"fÐƳ¬‚% ¸è@60`»ÍÜ'¾ÈBÎ]Ø3Ìœ-Ù„‡ñÌN\ºàZã]ŽsäÈM°aÒ™… ˆ€ ¹y& _ºXè 4•… »0ûª.jéû â ¶Ÿ ÎÊZÝ—‰"bCà®KÙD(²,Ù+K01
o6Xô$ç,|žå7æèrr}ÒÜÞ]ð°¾Qnö eq0¢&ê1|É $43\® uB¤œ¯Y‡žÉ23Ašî1`(ü]h "Â|k&ÌAÏîë!³ì±EBô1rK826 pFƒ£@i´òª¿þkàÉfR!®†íÅ'³™ 1«o¢3ôþ‚ [8G1ì@à Ãxµ"EÁ±hÉ¿\é’¥?7R\üâ .%ìÒ‡ˆ® f""’Åží\å>5³X@
À„#³¦R3Þhë«¿Zò¯®%âÎœd!ņIUJ«4 I2àB±S à Ú*×£=ZÅæì´¾€
.µéæq\„¬[v0s]•X Úª©Fåý±¬îJõItn\tE[56.à¯5®Ï¶ÛXo¡&‡³¼ÉQ½Moäz°BgÑ@ ¥€R ƒ ZLNN—h
XiÅF©E.ÿvú²¯tZgÙBæ|⇆¨_L¥%ÑÖBKöd§ÛG¢UëÆßoEþoµ5ÿ-‹6Ꭴ»4ó–uTÝ&ÅjŸË€2H)ˆÀ(Å1@¨ í»ØDä%ÍæÐÖ iyüü7Zdé ‡-[üb1`稂ÔÙÚ—¬€Ýs'щž&e§¦e«ˆug6g#1Y oà]˜†ù¬ˆ¯Z7sâžãAÍÑmš™o*ƒÛ Å0@
ÊBR@ÇŽß7µâ oǘz·¦Öò.w4 õ#¹¨úÅé]&ºv§ÛÊd4„tKO…§Hv o.qvµ5‹v'[¡&{ó:JÖÈqœ8R «vs<ƒ* å+s–Ó@
(ƒ )Ž'“ Õ" ¿¤þtâ±jYç€O›tž¬}m'[t â0T:á\:¦ÓªuoØÍv÷[;nJâêóéêR˜§ùyW
ˆ¡ÐR ƒƒ@ …,è£ [÷Ñöá÷æÞ³3·â2 ÿu9Ö€*vÂn‚/ÚSò0Øð‡´µ«Hf[·E_´úm%ƒ6ñ²%“zI–dpHª«#¬AJá3 l¯,0Cœ/Üà5å² žµav8“¾ó·éúôxX¨{eèÛ0¢ÙO£—*1k\íFã È@ÌØjE 0¾nµ—K½Ó[2™ó©6.Š»(ª¸ÔÛ‡*w
„2ÜœG …ÂoZþÕÑ MEé6ë·¨h… Û2P »{…,³%ù€“¬ü.[™*%YÛ~$ýô,=áPü–K³†g;ßiu®XÇ[©Lpàa…“1_¶œù°ÆÃÚ6Rt–ÍCƒ¥-n RDH'b΄);¦F–²mòä‰SgP D =¶ôXÒßM“Z={•yÕ©bµB×ú ºÙY×±§Å‹;,·pÿ†ŸwoßñçÿMîVXñ7m’)+¨~>å \˜p¿þÁýµè™‰@ëh Ñ&B´‰lŠÁµ€P¦”Xr©¥Ø.t‰&f8äM·ÜŠ
j¨ß‚êi¸âœ:n¸§ ªŠ¹èº*f,±ÂRjƲ¼2K©´–[ë;ô€ ¯¼ Ï3,1Á#(²Ã«¬1ú&« ³Ï8›L³…:;hÀŸ "ÐJ˨#gÈ0É$Þ°m& i“m¶ÛtŠS·v"QÄߊ:j)¥ŒÛ“Ũ®âj+§šúJ¹®¼šÊPåv¼Ž¬ì°û‘ÈIïÚ JÅ ,±#‹ ¾$?«¯Iû
:ˆ2ÿê¯!SÅ$(AŠ"*KeN éÌS:‚¨Í
[âÕÂÛdʨCwûÐ7Gþñ(=OÜó¬¤^|n+¨š¢.ÚjsÌQ:³tüERLÁýgÈpÿZ¬SÈ6mr0)ëSrÊÍ¢¬Þ…æƒè ƒ4²H"ƒ<ºÁÖT²íÂ`ݼW
_ú0'béL–¨…S¦˜â(&‘¸¬š ´EE»¢‘F —³N»a"}‹\p-=9¼õ4MÒÈP=
õ1 iþo RUíKÍP;¨Àg,K0eÒp-Š-ùµhWÛd3Ø9夓Ã{x(B—[Qã¬}ñ*mdnQE?Ö¶©oU2å´ÿ,æt™¼TÅÞuw^»±ÜlUVDh# O}&
×^€H¥W
f“ÂÄŽmØÜx‹ÓDªþ FÆD;'v¶9¹‚6Ðê䦲C›íóÖ>Ý/&‘½[UÐ0ãŒ7œé -‰^qŸÓÐüT^óv,€²R“älâ°c%ËrX[JþæœMç„ocÙêJÇ>æÉpŠë›-W’æv®sÊN•´kç C…CxªJÔð™Bñ3}A«ò¥J’§D! XƬK (='âD8„Øå0H äð‰ƒZ„Vr8É(nzT/ `UËe$Á ‰¤¶C':ówÃXºêûÉŒ,né0"Áh,BÖ?úq"IÍò&ôÓæ
2#|¢äz£ÐFúÆŠÓTÑŠ¨ÕE«PË*‹
T'чոì媒] H1ƒ®‘&©v3c',ÃjÖœe£h!!C4ž¡×¤)@@ëah X׿) ozS†zº¿&’X e&žî„ ÏER)ZÛ×þ´X(MÕ²”µ¬û´Ê26Ƨ]õ3g+e ÑÍ_!Á•32Áš€)4r}ÕFdwe²3Œz˜?T*‰]írReR•W´Æ9 ^3º+GV®5]ëÊ/@ÞֶŜÍ^[2T¡Þä(ÖûÉÃŽqÃBóYÇ(Ÿ»ÍÈ
ت ë
“®ÎÁ½ô 3+=£h&!~¨¡‡ „$úÊWgH#Û ¯—<]¢@æå
Eðq‘£²¬†AÏ‘{Ða÷º¢ÑpØÇâélÊr¦RÏ^)€.þ ïb?¥! P1 G¤Ka²k÷ùÚ¼ž˜6z-`Ÿ¨H…ÖW'Éꢟ Ê9k1—Ç*¨óyÎUrÊŽòIeÜRŸ±º*€!ñ]†’ˆà
"ïFr äýmL ²k!q{H¦i„a*3\ÌÐiÏb†Ýït´"#9ws/¦>5ªAúUW;øÈþŒÏ>£k“¼AgϸÅ-E‚e,¤KÁ¾#Dv¦Ðð«ËJã)!JHÙ ÔÙÔK3e¼ÁâvÑ¿’ꎱJçoÿ8º«Îì‘ˉsGI 18Ó.ph
h¨V"X«¶ŒÔøo_¨áHˆÿV[7NàcñPÆþH)’È‚¿)¬ÏÝlImCœªÝžx<5· jÏڅϽ¤´[Ó«!É„™bPšÊô’ùJÉ«râ•[ÚÄ”N`ãvóœC»‚hJ±öLüýáŽ8 ¼}t ©g«æÒxì>ƒ.tÞ $%y»²œ \ 5ˆèí€ýËVú1x`×òšÈ^°B>MÅòítÕõHe(õDÓ¼X¶L`£ëHžzÙë䳤s2©‡±ñN@Œ`Ͼ#{h€0š ‰h™BŒ^#¦74›_¶Jj.“Ü tz8¡àÎ-çó¤>´¸
ˆîÑÕ³¾õIWgã¦äøu¢$ ðAX}Wþ0 Æ‹¥½S³Ït ù\Ò7? í½fp½â+‚ OŒªçŽƒ8 ¥8„aÛDiüÈH6EÕ&ÃHb¨2Lêœ
Oæ@?.£2ªa
DÀ€/hFÐU6"º¤Ðü)xÉ®üí`zŠÄÌ®¯‚ÊóéÅvNÆænÅ(ü6j/P 1nZÇ=ff• ìÉF â…†$XÃxzÇ•H#4@#y\Ëoö
ì)æ ÎWg¯ iaÊ,çd¬z(Èr$†!P? •\Z¦”hOãŒL2â\Z Â,ª!
èöç2„Ã4Àh2Âo@Œß$_”þGórЧ>™¢Gaˆ…r~‹ E”üì®è ÷ ~@eT£ lE®0Ö²´ñ:žðƒ4bÃ_LåU^îåH
q°i’H·<ä椧™„CYTñpÎ^1É…nÜFSè@áB¢(ÂœÜ%?´ Z q^Æ
@ò¥@t½$"L8‌ˆ Ol½(mÒ:o·JïÆTQÇZQü ÀÀñd–n Y
3æ)$ 2äF»,#‚±þP%–RÅgÂPŸ)ËöIAüïòm ¨ìfBNà°xNÚð„8Rï¹ö"#òd"#È2¤nàL:a>þ4Ë>x !$o¶kgè…4$ËDŽzˆŸ MßvʘjNM²R#6Å´a JN Õ‰B²¬ Ï2¬ ìe_BlKz)yÓ¶1Sl‘"‡7 Bu8u”mÆÀV²€eÐE‡L~R‰9ïÒ9o§ Pò>bP4îHøª”ØhIßÔ6’ ³»”C€B2}Ó'tLÙÆãBdMñÌ3/ÀàHþà
©Ëvp¨¥*‘q*c%%aÓ*ÔE?q§&”P¡mtàFÑ3GUe6áLn .ÒåÀ¸
kÇ›sÃbÍ]äH3ƒoü3§¸„#dEËdó ;‘y4A¥¯U#çγŒöbQk•\'$è`.~2ÜðÇ3B)EÀD”S«Î4ÇjÑ@(ãIã@R’ò6Q½pËy@1Ì ÇZ9VeU[iµ[Ãå–@`ìT¬”^F>±¡tibÏnF°º Qo-VÐ+"„ ‘Æ^ŒÈ0³ô½”ˆ \•'²5…¶Õ`Ãå"E ðÂÀjQH%öàPPˆäÉ\ÅJt‡þyg4¶®—¸d*ñ¶8Ñÿ ¯0‰¾,e6QÑ’[]vRvÀV6A… ƒ= Ã0Œ²¬áB[ã (Õ~‚öÜ.cm±s–|‡¼úò^ íµRòˆ† údÎ_gTVÖ„ö"®–RbáA
LC9¥…°aNPF`Œ’•L³]B’)3ã@’'Ø’‡4äJùÂnËV•ZËNo hj#Ôj=43$ÀàÇÞ'0¸*1 î Ü2ÐãœDo>ìSÿÇÊ@—h™Q_íˆhÎ_óCr[–e pS7HŠSaÑãÏ/2°áF äœ3fä³f`††ê^ÑM4ðQKæðuþˆ¾KT+Y‚L7LQ7zÃ\ÃZo=(’I°¡ ¸×àƒC*wWPJEòXññf^E÷ôÃlði*yk‹o›×oŸ×~уté(%Rù—IÜ÷`Ä©kXßeIåhc‘ ßÎÍÑ´ËByGw‰!V©–2¡WƒÃƒqKÂpÁ%Ü
ã=Þ€p`Gý’SNIR?,#P®ØfKÑÖ7!Ò7Wà׆³8&˜w‡qô|XZmJb´¨ÄSµî×`0K¬ØpÆnåþé}µ8#rø‚Û 28Œÿ _#mºÖ=¾¡\cŒ!v¾þJT6Ðq|sgÖR³3’õ9±Þö)¶¾î®n8y‘9}ö¢V9/HÂ$F!}4ð-uÉÏÈìG~šøp¦Sï%^)‘ Ë+ßd“ò4‘‚Mì”ÃT•Ÿ¹.úàLv …’ä
øúîºÈU8ÎU0–N݉õ±ë¤T’¦ˆRÃë ‡•Ù‹gՙ߹.rÀ5 ºaRà÷ a•Ø±væ’Õ‘“ã¸w}ÙT`0"†Wÿ~©Ø4Q¡Õ™› :¢ç‚ÂR ›Ðàž…(—$wþ€´ŸI²\øXï…ŽîÈ ;x¬xؘZ@J9™—Yuš™¦çCâ Â)¦Œ×0l;:•ƒñgò8.Âæô?rE_l°hYºýx‹_¦yl¦©úLâ6jÚo†±uNI9¡D†„Ú¤ñg$ë1Kˆ–烩[ºØtÅ_¡Ú¡ –¨:.ÔÀ5‚À£¢ 5. Hià†£ƒ4næ8h†ŸÁ9UN˜‡hŽÛƒ§ì:B)»²‰G4Á£˜ó÷8“u~tTº븺,C"ô©X}¹3⡻©ó
@²·¶iZlEˆ=ª7 5º@E¬,J2Ž]|fþÖ˜’?ñCµO?ŠíTž»±Y®ïκ#úBK$KDâbI03R)¬–¸°õ#m¯Âf-V›hÉP¾ÅDx˜¡¢útö¾߹»-K{ï¹äâ”&¤äæ…¬‹1r7^ÔV/Áy"â ú5!Üåf;L1|•W¨à¹š,Þ¦A\]ǯ–ÁøìÈt CK–f á[ë,a;#¤›º1Xêz×|,¸7
ê"vÑ4ã4²> „¤Êµ¸w™I#Ìø ühûïÉ
¢ú¶}öbhz
\cž L¯Yƒì‚öÆQãææ{ïýlN÷ÇX)#ÿð®\;ÆÂ¥ Îþ€Ê#šx<`êì
<€ñ^ /f±Ï¡ð…zvÌÛ©†(·ÐSEåä½ù%º#f<¦%ý™A—6ýÔ^`«[wf/°u6Å>Ü˜Ï myyØ!ŒÁUýÁ¥8Ê#TÎß9~/
¾Í8[L0^&À¿
ìÆÄU© M=‡2ÙØóÍâÕy,ÖWÙ5nzâ‚ äÔ*«þ=i§"±+Èœ¨X…o*/0Ѽѧ[õ QñÛ¸@ïбärÝ/îŒe܈LéIš$ÖL»ÔßÕ¤_³ÅIx
ÂÜ#nàÇ”p©÷èð÷ž¶6VèHÐô”¾|Ìë½Ü)æ—|ɵd4 ä-\ þ2à™›àL^Yïô¨äZ Õ\ö:‹€}SlŽe–À9¥ŽúÁ»Äã]ñväY/£KNˉ vë†é"ž«ëå‡úÛ/6A¨N#j àÃô™¹ÀV2»A$¦Ì€„«‚,Èv÷WÛWݵ…Ÿ^yñ$ƒêÅçƒS‘= 7»$Ö H0«k{]n¾º +N®.Óœnö¹ÍšÐ¶çÛ›z' f#@$Bwå ˜ñH†Á!ZÐY·ØLýñ´’MÙ|ç[*hWyí@¢])8%B šEèœVÕUØR…0e×X‡ •â?#ö`©)W'Ê©Ö}[mEÛX`UtÛUæÓK öø#‘H™ŠZFEUN©áÙ…1~•X3áçá2m`ŠY~ÙÑM%HgTWxpFï•yáV V†ûQÖ†/Á0§þpæÙ— ä iT;ˆ¹Wi^¹æag©ôœJ×My <Êb¥ ‰§ª ‚‡]DA„9Üš
"ðéà>ìð«Md‘F WauIÕ‘Tu6zÅ懖6«IJi¥}ŒÑ;ÜðB
#TÕÔyU[‹»®+¦ºTÐB Â^ñF' -ÙÚ’õíešR–z*‰ÕZKЉÇMäð¸貫œFN ÑêZhíîÚ'U©±êÁ11Ʊ
Eˆ/…úm§˜¨8]‰*Á-q^¶áÑÁÅ9´àðUõ9qjî¶;ñCÅ W^"8ÜgÅíy<1ÄT Ä»œÜþ©|*××›5fcjªê
,ó y
Ç…-<¼qÔ?$ñÒ)¼pƒHD‘… s ²Ð
ç° AÐ1ÆMøƒ¸NU,4¯¼ÆðÖ"1‰(u,±6Ùšiî*ÛÌ×KÄàðÏkltÜsçÐDsȵ"D#PôJ.¦ÇU@E, ™©u„:æ vÀ
r®jq ÜE)<ÜñÇ»R¼ô 9ñ ¤™íÔƒÅBGÏG,æj mM ¡ÕÝ—¹Øä!©y¡Ž¸;-±ô‹ ¯“—œªx(ø Ģ ¢!•ƒÍ7j¢•â¹/<ðË“ò’‚„ä®=QCƒnÐþíõ€ÑH B ä¥bæ;_|ò5£³¸ ‚u¡¡–œú5ÄkûXŸ¤·¼ `ÐÖ¸R#˜¨DAyHšÈ䜣Ÿ°„
K”YÁ26‘1ì`|;šÇR*Xñ xÈ‹¢²‰PL#W HXBÅ•±À†X¡cˆÃ…ä`¨)aj$¦‘
c,È3t¦£Ìi-5B¤3`ù „„l"%
NK"T2ânŠ6ËD'µü™“â’rRñ '8Oj.J•3 +_hFÆÐPª A.,`¦€bžµ%A#HäFïbj)›(Nä"QJŽÑ—LÚ úR¾´ÀiµH â2a¥¤ õ JI³¶t•k€Aí OÛ“‚?U䈙ÂJNÖÔùÀN |ÈÙªú›%Jï A‚€ª¦NTUQý£ÑÔ U8t8ÇZ°@†"0D]æÖÍ%v8Ïóà»–€þíõ8a\
Â=\6)rÕ©–ÆÇ'iT éd‡s©#‰à 5ŠãÚEO-Jm•ò<ü ”QÚió‡µu¬*ÖkBb€‘ótµ.*0éØ«™œ "Ë H
ÎÃËßþf •}Ú‘:‚ÀÚ±sM3;„dŒªÚ ΤËÉ\‚@ ši.tïr[‹t½
¹`{Ô„†©kˆZå mïk—üNÄOÓÈrh²÷¿¶oyÉsÝÅ–!k…?,_ø8ôpBð
‚Í‚ø·ö¬p¤«aU„§™ðŠµ‹oÁE9ШBÿÞÄ-ëqJç þdEM)êÿ›c ËEÇ1›˜T|h¦÷É .òñ¤L;UÌ"9—A åkæg˜¤ˆJA Û3SÎ} ˜¢R “y]r&2•'ògN®ª8}Fs)xçþâ²#¤n¡?œfß…TQrB(fæGCùÐÇÑñǶ d§xÀ¥šn¯ þl”D/Ùc ¹.Ký_pz8
&luÒhãÀʨfH~]mâ†$m×–µª“’_AWDyN&öd#mä¾LÌÒácSníì½[ÍrÉË (âj]g[»§>6RòÛ±ezܦžõ9û_yÝì&w¯’l=3DH©w»Ím[€ ¤þ„
)¡¸ý}ZÜ8ÇK¥r^„ÿ›ÛXÑÈ@méJ¼½
o¸Eò{Ä`„“mÞxÂÝýçÎ \Էɾð„(˜ÒúnÜ4òrŽ£üŸž©æ¹þ(l缪 §x]Jø㪠ý¿$Ø9i®©-é1GH¯Å…ñ©ÿ¶é ß±Ö¿ŽTý cûoCàt§vÝì7.º¤Ù>u´¯ Ðs‡;…Å^w_çÝîÚ•»Ñù¾q¼ÿ ð÷ûÛ ø²‹gïˆGëÒÞÅ7>›‚?üäëýxÆË\ó—?è$?Ðw~Œ™ üèwýyΓ]õ§¯d ¯ØÖK<õ¦—ý£_ÏúÅÛÞßË ½r¿{kq ö}ñ}ðóÔ{à‡^ùLJÔð™ÿûæg›¾7¾ô‰ôüÚ_ÿÆÔ‡¾õ·Ÿ¢ì[ üOÞ@õ¡Oþm€ø|ù~ú¤ó¿ÿÑë÷>úçÿóß ü˜€þ€ø@€H€€€ ¨€
¨
Ø ì‡_Baˆ¨È è ‚!(‚#H‚%h‚ )¨‚+È‚-è‚/ƒ*¨'Hƒ5hƒ7ˆƒ9¨ƒ˜‚ (ƒÐ‚>¸‚BX„B ; PDF-Create-1.08/t/pdf-logo.jpg 000755 000765 000024 00000030654 12251673270 016205 0 ustar 00gabor staff 000000 000000 ÿØÿà JFIF ,, ÿÛ C ! "$" $ ÿÛ C ÿÀ q," ÿÄ ÿÄ \
!1At"28QUWa“”³´Ñ7BTVq‘¡±Òá#6sv’–²'3Rbr‚•Áâ$5Su¢4CcG„ÂÓðÿÄ ÿÄ D
!1QARaq¡±Ñ23‘Á#Bb¢ð"%4r’á5‚Â$6T²ÒÿÚ ? Ü´!B B€Ó»ƒN-mDÝ[©ð.yHó ’‡M|
;¡àºV9Þññ÷Îæ}&îLÿ ŸÄö¯£iŒîµÕÏÐRýYŠÕ!KÍOÜ™ÿ ?‰íHîhÒ~äÏùüOjº0¢B˜;št£¹3þÚ‘ÜÕ¥ ÉžóøžÕs¢B™;š´§¹3ÞÚ¢w5éOrg¼þ'µ\ä(€¦¿“f”÷&{Ïâ{RþMšSÜ™ï?‰íW! €§?“f”÷&{Ïâ{Qü›4§¹3ÞÚ®$÷òlÒžäÏyüOj?“f”÷&{Ïâ{U„jæ“Rl›–Ç:o39A®Têÿ ‚Á3q Ðœ@
9ã'n9 Øx•í£Úç;ÂZq¬píë؇-6ì6R©È×1Ýk^îÐê\v :–¼{ i?ëD/ªÎÔý>¶u€êEÇ$"†äËÌÃÃcK<ûæ;““#h8Ú
ÛBÕ›KRo= ªKZz±b»fň!RîˆpÜø’ã’ q´&× €vz™=%S§À¨ÓfàNIÌà G> Fæ¸l ö„! !@B„ „! !@B„ „! !@ke¢3º×WAKõf+\Œ*ªÏÝm«¿ ¥z«°BQ ¬¤(€Ç…RQ# d(²¢B ²‘ D(²¢B )¢B¢×t &ýi…õµ_®j õ×ÝIZa}l[æ >Mv“NÒ¦)Ui(²3,,3˜ñá ÿ `ª Sïε(õ›1³W>œÅy‹?Cˆòèôðvº$Ú yå xØ 6 ÍXžÔ/M/Ë_Qmˆ7
«Rdä«ú˜°ÏS]øÛ#8Úáó 0H žÎµv÷ÒÚý§s¿QtVi”šàꧨçdI™Énó {[v‚Ç ›;Bõ®ƒ©p£R¦ D ݲ9mB‰6w±Xæìs¡çíÏ Ì·” ‚@µ„ !B B€„ ! ¦ðîs_凱 ;…Ü×ùaì^>±OyeÅœÎõæw$.›Ã¸]Í– Äpîs_凱=bžñÅœÎõæw$.›Ã¸]Í– Äpîs_凱=bžñÅœÎõæT6oe¶®þ‚•êÌVÑ
¸¢R;X/õÑ„Hw 9F6P7@„!œ»ßgâ]¿ñë~ oîOX§¼qEç3½yŸX„ˆ_+ñë> oîKñã> oîOX§¼qEç3½yŸP„ˆ_/ñÛ> oîGã¦ü þ×Üž±Oxâ‹Îgzó>‘ …óMe¿?·÷%øå¿?µ÷'¬SÞ8¢ó™Þ¼Ï¢BD/œk
ø9ý¯¹ Ûÿ @þÒzÅ=ãŠ/9ëÌç‘ øÙ¿ôí,²sÂf7C‹vg9ÊåVƒy&t©†]S‹œ¡©t¯3B‰ )
$/ROë¨þq4“õ¦ÖÅ°oj×ýv Î.‘þµBúضí@q Õ‰Í\§µa{P W5Vä”ÛÖ$*õ&n%¿wÈùÄ©,xszÑ{‚Ghñ·“fAµ Õ‰Í@UÚG®•) Š œkL´* Î dS²u1Ä ¾k ïNGRì4ì"¨u"Ķïë}ôkŽE±ám0c7©‹.ÿ ëÃw!ú(!Uöž ÞºP•¶5%ó7… ƒN¸a°¾4‹}ì8£i-Þí gx\ðµÈ\J5NZ¥KUi3ÒóÒ3L L@ˆ #O(#a\´ „! !@B„¯ë=J~—j@˜§MÆ•ŒgÂøNÁ-,yÇÐ?Ã+«»óþX«W^ÿ 3%ùû?êŒX«ùÊ5rLý7Á;Zpõ)Á7›Ú“>÷ ®®ïÏùbŽ]]ߟòÅ|oîe²m»ÒZqÈ:r ¬o‚wÃÞ’âXFx¹WV½EN2ÖúK\Z¥†g;ºÔ“Œ2Ï(¬õ´¹rß¼¯¸euw~ËpÊêîüÿ –+m:DiÅèž í®%Osî›ÍKº ¼ŒôƒÈÙãÜG‰ûáô+'„^/¼¾/ÈÃÃ郒y:_ìÊLÕn]]ߟòÅ 2º»¿?åŠì˦U-;ªÁlHâv™7¾üh7zr8ØñÈá‘à#‹”ÿ ¹§N- ÎÓ©OÜTÇÍÌ@žè0Ü&bCÃ:N0×ÆJ…NÞâu½yK¥š{ÌgµÃV& §IåìÅgå±å±íÏaPpÊêîüÿ –(á•ÕÝùÿ ,VÙ?A´ÁÞ=ý^¾-ws‘9ÿ ‹&ê”ÈØêŠ"ÃÂ× Ÿ‚™,&ñ-Rϵ™º?H<©,¥IÇ¥Â?&ßq¬ü2º»¿?åŠ8euw~Ëõ5GN«ÚTd½M' ŸÁ§aÉÅÇþˇ(>,ª5E¦ÜZ™F¢Õà‰¨lXaîfønpÚÒڮѮªªRm<ò6¾› •Œ¯éÆ3¦¢åšKZK7—N-{OÃ+«»óþX£†WWwçü±[iÒ#Kþ/Dóøÿ m "4¿âôO?öÕŸ^s×Åù_¬^ÿ ãËû!ÿ Ñ©|2º»¿?åŠ8euw~Ë`nš²m».¯F—·$ )j^#⃠ñ7Ä8דŽ5Pªºê
Žœ¥t›¬&¥†)g º4’Œögž¦×&{·Ÿ{†WWwçü±[Am’èÜã’adŸ™j
Ûû_¯…úõe„NR¨ó{ŒWÒ5
Tm!èâ–j[[¼B‰ )oiD…ª>SÚì?œ}"ýj…õ±lKÚµç]Çó‘¤?p¾¶-‹sP Wµa{W-íXžÔ
íXžÕË{VµÄ{W±M‘ªÓ£Óªrpg$æYf1í<„õ Õ‰í@kÔJ=ó¹î«3péëf.4C¥nƈ]T{èNÒ0=ðãàà7Ãc4³Q-]J¶¡×mZ€˜…°LK¿
*ò:ÈŒÏRxöí«„öªRýÒºÕç:‹£“¡ÜŒÍS†)Qo˜æõ žÑêIÁê\7È
¥B¨ô#\(ºÑ(5YW[פžY;F™Ë\ç7®t-ö×7”·®nÜäaÆÜ@B„ „!ªš÷ù™/ÏÙüTb¼õïó2_Ÿ³ø ¨ÅˆÄ=÷aú‹ÿ é«‚Ø Å¿óëšÁþ'-~[¸·þ}qóX?ÄåÛ þn ®Fypïþß¹ê_ûDû›³£FƒI¶Œ±!“ >wŽ#=K;KnE®ÜoyºC§&¦iN’|X°â<¹ž Ð× ñ’<>%°÷•*ѪB–mÙ-Kœ` âÐ8ßowÇä_2J¦vlŒQ#Q¶hð ÕDl¼hLtB<
9qùʾ©fýsÓ¹¤¿Áò[>S| â˜ÛJsy¤òÍk“y¯5âu]Ö`EÒH‘# bBž‚ø$ò8å§ á._ qŸæ%cþæ}mº/UeoˆÒÔJDüM'Åtg´´ÌÅÁÁ§hhã8'|rÅdî3üĬÜÏ¢bN¼+bYÃZK"âï ¹Ãx*w+)JjY=©6²Oáž];Σºö§R‘Ô
S$ªr4¶¸ˆ1œÁž‹nÃƾŠkÉD¹äi•Ú¤ÍN7°" ¨†#àoŽÚã´ HÈâÆve}-Ù^èTŸûK},UMPäæ*© V¹Ó3áBŒ¹Î }%W]שJöN”ÙàU•ÿ hÓ¹‚iÁëif¶ëO‘æõjµ³/vØUZ4hAñ_Ñ%Ž6²3A,#µ·að9V¤nv÷g·MнnÜÔhrÒÑf#86&½Ç’V“ny!ÚÕo8 àr~IêÏ„UÍr·óF#€·eât_³6ºÜ%Ÿ‚6«[¤ªõ .IСLŨÄl.‚ÉrDBDVŒxZ±À}aîMËå_ö–à_ £kNÜU3¥¤ÃLF@ ¼ïžÖ @ãpåU_ò—²»pù?þÅëˆÑ¶DêÔÑy8 ˆã6¶S……¢«
&ÛkcÉjÚ¹2}¦´]Ôë’•Qd•Ñ
~ ؆ Èso.pa'hÉ; æ_wÝu½i—åé·J–›——lœ8“-h~ù®y'©qê‡*èK/]F5ƒÍo>é…Ô¯VÎœî!¡6µÅr=À·Õ‰ ô#ê OÖàZŸÒÂýú‚´Á½ãì0I_Éê_ñ;
$,˜H…¬??”jN~µÁúض9ÍZç¯ùÉÑÿ ÖÈ?[ȸ 8®jÄæ®Sš±9¨+š±9‹”æ¬nj†ö,/b潫 ڀཫڹ¯jÂö *ÝaÒjMöØ5YIˆ”K¢H‡ÈV%IdV9»Z [‚àÎ[ÈxÁãi>ºÕè7=:×Pé5±†ÈW66R Þ \íkõ¶4í0ŒQì]_P¬«zù·âÑn9ÌË»& A²$ò>½ë‡Ìxˆ#!q!jM«|ÞûžjÖõòé«›Nb8A‘¬CatÅ4q5 e£ú§“¬;7‹iíêÍ*á¢ÊÖ¨u z…:mć1ãåíƒG ƒµÏB€„ 5S^ÿ 3%ùû?êŒWž½þfKóöÕ±‡¾ì?Qp?ý5u°[¸·þ}qóX?Äå¯Ë¶i¾ Wl©Éš$Üù¶5‘?„^0ÒHÆí®–5£F¼jKbò%p£
‰áU(e¥$²ÏRÔÓùníOùM³úyábÖeÝu'S.;þ^Jv ‹[&÷¾àЋ\ 9Ëh.”»_×zî¤6<¼.áUðœ&¥ÆZqÒÏ-k\›ù‚ÚƘ•û™ôLZª»Öœê¥ÍaÒæ)´8t÷A˜ÑßøD=Ûíèn 6`Î q zêsØyðǸÅð¹ZÛe¤ÚzÞKS6[´~wPîi*´½n^B ¼˜—s"A/$‡½ÙØGõ¾…ÈÒ¡Y56VfçbV*è1 C…‘‚ZÌž«i?
™~è½BpÀež*ïõzø•ÝmÔŠ´Àu|ÉBxÁlœB>'¾ "%}`ª:Ú-ËõÒa)p_…³²Xs¯QK,“×–ìÔs}Yëå/=Òú‘#@¶&íjlÓ"Öª0Ìc³ø4¨»´ç4à=¹ä¡w;{³Û¿¦‰è^º x±cÆ|hÑ +ÉsÞ÷çÆI—5~o#Kx3r|_«yœOb83r|_«yœObÝ.?ºmò îG Ý6ù÷'K€úÏ¥Í_›ÈÒÞ ÜŸêÞgØŽ ÜŸêÞgضFPmZ»¬ ºÛ‡*ó9¾ß ŽDÆóÞã8ã9ð.ãÁg|4y/½8’[üÖ}.jüÞFžðfäø¿Vó8žÄpfäø¿Vó8žÅ¸\wÃG’ûÒ໾<—ÞœI-þë>—5~o#O¸3r|_«yœOb83r|_«yœObÜ ;á£Éýépaß
OïN$–ÿ õŸKš¿7‘§ü¹>/Õ¼Î'± ¹>/Õ¼Î'±mÿ ]ðÁäþôpiß OïN$–ÿ õŸKš¿7‘¨ ¹>/Õ¼Î'± ¹>/Õ¼Î'±m÷ðÁäþôpmß OïN$–ÿ õŸKš¿7‘¨<¹>/Õ¼Î'±mu ˜„ ˆAñ. ð±äþõÊ¥Ò ”×F1ÄN¤Œo1þªe– +iæf¸MÃ
8;†¤Òyež¼òÞº¡„ˆYQ!] 3)½|Ô ýmƒõ±l¢¢µ§Nê·ÓíÙº-Ì-ê…
{ðÙyŸÀÄÁ ÒpÎܯ‹Àxïÿ ÷zÚ@lk‚ÆàµÔÙ:ïßú7îô´¢lvïý÷zÚ@lC‚Äæ{6Fº÷ý‹û½í(›#];þEýÞöBÆæ6>¹òëÜ_Ýè i#ck—¨¿»ð>ÒüsVµPæÆ× ÿ 1wà}¥bkyã׈¿»ð>Òõ{VµQΰõ»—]âþïÁûJ&ÂÖÃÿ ×hŸä~Òí{VµRÆÁÖ¾]u‹þAí(›Z{ùÄÿ ƒö+Ú«}`ÒŠ-ÿ ëbĤ\Rxt…ZW©‹ Í9hv.h;FÐAÚÛŸ€tûYÏ ¹Dÿ ƒö”Nžë/Ÿä0~ÒèiVºW-ô ;×V2B;ÊuÅÅ+:Î b; ÅÕìz°Ò ;.×49¤‘AØVžÝú)¨—u+ñ]É«PªR›ððȶü,µÃß5ÁÀ´òd°‘ʪ í]Õ½ªÎéÅóü2B¡Á|Ä”8„4µ¤5½8µ£;œD¤HB„ „!¯Z}Ùu¬ Ú•ê¬W1
šÓÎË`æÔ¯Ubº@c!,,„(€†!L„°€ §„ˆ@cÂK!
$ BD)á$2YQ!HY0’ !d!D„2!d!"ÈQ!d!"ÈQ-í,„$BQ-í,¤(–öˆí¤BÈR-í 1¢BÈGm"ˆ^yî˜÷uº¹Ó}¡ä/ªÅvaRšmÙy¬<Ö“ê¬WnÂXSKa
XI $¥„ÂJxI $Bž@@…L$BÝ)+á—ÙFl³> 柞 Ò»†¢VáAÒÊ•b°Ù™ œÿ Ö?ù‚ž³RÍWMêðZÍôH0„Ã06ƒ ‡ üC‡S×%ÍøÇDmÊ$˜“‘&Œ´F
§{oÌøJ¢æ§ ©SñG>݇Ððk>5³²[}Wý/÷þš,ý§~¦²q pùÈ‘& >WoGþ- ¾apíÚp¤Ð)ôÆà‰Ihpr9KZ?BçaYP§èéF‘ŒÅnýrúµÇ:Mö7«¸ ¦BD/R¼‚D)¢B$BšD ¢BÈB‰£…‘"ÈH…… 1¼æÝ?î÷vs¶ú&/G^qî ÷|»9Û} §!@B„¦½—ºÃÍi>ªÅwaRZiÙ{¬<Ö“ê¬W~F’Â8K
HÂIO a $§„°’8IK 1ņÈÝ#CØðZæ‘°ƒÆ²YV» kŒ*WµÐ)óÑ"·.Îù°Á{B×8ªŒMÁN›kcϳVgÑx Nâv÷‘§,´£¢³å›RÑ˧,þ&Ø‘ JLA›”ƒ7-DbCxâsHÈ?1YVûO´âò{LxK
d$B !"ÒÂ(²‘ i¦BX@@…Dˆ@cH…… 1¼âÝEîùvó¶ú&/H›û¨ýßnÞvßDÄ©¨B„ „!AiŸeî°óZOª±]øT†™v_k5¤ú«ã„0Œ)a, #„”°„ž@G )a, #„”°’8IO +=ÑU¿ÅV ä!?êqD ðuO?@oø–h6"è¼;QðÚÙÃ+Ñv*úpUêÔ”¶{>fÆö⦇ÙФò›~™õ½Pî[:J·sÀú§…6\'): õÝwBq%¿1o€ ¬ü*BåÎœël
è [ÈŽGZÒâ:'ÌíëþC…x r]ì¦ô )mŽ¯.â'
-àî#}E}u¦º Þ]j^$HQ!OšfLd$BÈB‰%…2!!M, 1–B!"ÈK d/7·R{¿]¼í¾‰‹ÒEæÞê_wû»·Ñ1êb„ „! !@PzeÙ}¬<Ö“ê¬WŠ£´Ç²ûXy'ÕX¯$ÂIáá,)á$0’ž@G )a$p’ž@C çÜuHJ õ^kú)HŠFzì
€xIÀñ¯¥…PÆ4še¥!—ÍÕ¦]
¼ep
oä~É^5½
)Oõ™k‚aücJß‘½}ZÛø&aÜßJ3±yÔún§0æ1äq´;|ò<ç àWùÖ¥
ۧѥðY)°É ùÞùÞ3“ã_H®-húJ ¼½glwãú— Ùo(ôEj]È麽k ®Êš“… :vüD¡ÆÞˆÐzŸñ ”ŽÒùZ t‚ÌdŒÓÉŸ¥â^.zç3 “wÌùZU…E\úc¬P«ÐØ[B&FÆGD +]‡ / °«ëfÇò}…¶
üR®ýµûôú×µ ÷-ioY—–Âls^ƽŽc†Zàrí§…<ÉK
ia!M, BXS!"K
d(áHY ÍÔÝw;o¢bô§ Í}Ôý7w;o¢bÔ´!B B€¡4òÿ Xy¥'ÕX¯,*7L;/õ‡šR}UŠó@$°¥„Â’Â8Bh@G )a$p’ž@@…FY¤ßúë?q»ò”º(ÞK 6’2ØxùNþ"ïºßqðkOçb‰¼›œ ‚Kàíx;çx›¾9íábЫoƒº)Ñ¡ïfçÿ âãämà7ñ7;d¨¾Ú¼irG[ùÌ3øv^ùûu~Î [fþ³Þw¬$¥„)æL†YÔËZ
ÝhÍRœ&@貯>ò+zßÚ€•Ú0‘]g8¸Ëc=ínjZÖzO)E¦ºÑUn}º#T(±íj¡s*tsÐà ×@à•‡©>
ê´p©M_§NY܆¢Ña/ ‡? »q9ð=¼¼Žã!\4Z”f“+TŠ"ËLÃ!»ÀyhŽ"9Q,æãízäf‡„v´ê¸bvË*uµµÍŸÞÇZÞ¶ ¬%…,%…4Ë‘K
XFK
ia!M, 1–L$Bó_uGd
ßÏ蘽*!y«º§²
ïçôL@z”„! !@B.—ö_ë4¤ú«ç…Fiwf±sJOª±^˜@,$¤– )$€IaK "…$°€ŽR_
þ¸ ÚöB·z]/ô& ìc|dWYIB.Ob=hPÅXÒ¦³”šK•-þz`k}2Ó„z%2‘ÕÍã$aÑ3ó1ž•y€ ÄO¹²Þ‡9vÔwÏŸ¬Eqkß×t0ã—‰ù>&•m(–Qn.¬¶Ë_g!¢áEhB´0ú/8PZ=rÛ7ÚõvÂJXBšfa%<$€ùõúLn5I¨Cè’ÓPÌ8ƒ”vˆípAí…Né
Rrɽgtâ½ò1"—Sâ»cKŽÑÆÜr8ÆUã…Zë½—á¢CRXáY¥þR‡±ñ!¥£wÀõMðär¨Wtä²OÚzåF›ƒ×”d§†Ý¼©UåæÏîËäú6ì,|%…Òôzõ‡y[-‰ÍmRSç!™<‘ í; #»±
M*‘«8ìe õ•k‰ÛÖYJ/'úÜö¢K
xK ЊARK¥…$°€ŠD)¥„0¼ÒÝUÙwóÆú&/Kך;ªû îþxßDÄ©(B„ „!Ciwf°óJOª±^Š‹ÒîÌ
b攟Ub½p€XI4 XRÂH¡I, M¨Ýs›˜»¯Ú&œÓ" èŠØÓŽnÝëˆÎO÷aïþ%p]5‰KzÞžNœ@”„bœ zÑá' |ª©ÜëG›©ÎÕõ°7ÓU¯‡.Häßf#‡ƒ 4v·¤(ÒJ4.·Ô¼Íg"¬©VŦ½ÚчMIlþÕ›}…¿O“—§ÈKÈÊC¥åá6&&µ£ |ÁgMSÒËR2’““ro[#„”‡0…,$€ŽÂ–ˆÔZ\î™ß/ºiS‘7“ÒìØÐ\ræø±¾ §+¢‰S’¬Òeª”øÂ4¬Ì1Çhò Ñ Dr¥\¥ÉV©4ªŒVf‡§µÛ ¢ÐyTTŸÒkÚ%£pFtJë÷ò“NëY“€ÿ äpä;x¸ëŸý%\þ仟“6Q_´6*+]ÍÛR ÆQøµ½—ÆÂ`‚v‚…bcHá,)a, "–Ò aM, ¼ÐÝYÙ xsÆú&/LW™û«;!oxßDÄ©B„ „!Ciof°óJOª±^ʉÒîÌ a攟Ub½Âh@E
XI °’h@$°¥…ò®ºÜ¹nÎ֧݈°‹ÈÎ ÝÄÖ $ò®%%›=)RiªpY¶òK{eE¯µ9»–ê£é ù‹+bδ4‘–ƒàkrò?»ÚW ™)F£ÊR¤aï%¥!61Ë€1“á» •YoZœt«Õy9lêä6ض u[Ña6ÜãGÚiju ´ÛÙ«bÏf²Ì ÓCRn=–¥Šè0ŸÖÇŒÇÄ 'ã)p3Yî]µë±”¨ë¡A½p ì|n^Þ¼¥îàåÙ’ø²¿öZt5ÞÜS¥Ðå¥/íŽ~%ËQªS)¬ßÔj2’mãßGŒØcé!uJ®ªØ숗¼w&Ë1ѳãh#é]J›¹þ„×tZÅz§?íq†8øs¾?JíT$°)ø- C˜x÷Ó1_>"w¿BiÝÏdTzÞ~ ÁÛnµJ¿Óù›}ÇX¨ëýŲ4º¬Ù ùÍd6Ÿü‰ú§MËQÙCÓÙÈùë]¾‰>&°}já§QhôÖ†Ó©R2`qì‡õÎÂz ™{U2êHq¦ KÝÙ9tʤ¼H¤8W®5?ý-&ÓÅ¿¼w¢Äÿ Do7AÌñÄ’’Ï58ú ®äa=M½µ%ñÈ~ÒÓ†ªvTRé‹“ïe#Á}t›þží’—Ïÿ 6÷ø!/™^ÒmN¯A‡
³uS'™ ÅÐÄiˆ®Þ“°ãò{À%…Ä°úrYJMöépÆòŒ”èÒ§·SŠ5Vƒ3¨pîqd¾î‹F›—ü„ssl2GZÆÓÆ:ÞB1Ž@»çµÚCÿ OsIMcÿ ‘Ï”†»Ž®éäçMÛÉjÔ³á¦8·ã¡¼ö³ÄyŒ …£ú…516ë2ðßÊ×e]СD°Çǽwöü>ømãã‡uJ§£©&“Øóîë4•ñ™b^¹gBœ¥öpM¯Æ¹\_/*>Q¨ëå;«J“Ÿcxú˜.ωŽ&ë ÉFˆÖ]ö<Ì£IÁ‹
¯„Ì+Ô§5N²Û±Ÿàâë
²ºµÞ'ûšå {IoMj’ï\¥¬Œ)%…4Ë‘^fîì…¼9ã}¦kÌÍÕÝׇõ£ç'À©»žòºu‚³'jÓið$eÝÅd ûOUøâÝÞº—A”‡¼Q¢7¢ÅÏl9Ù#Å…ÙЬ)YÐ¥ìÄÇßð¿ÍW¬òܵ/‚É|D–°’’RB’X@GM@E,)a¥…,$€K ê®›S¯8rÄj qh
Ç_Ž1ÚN#Ê
ªº\ê=™Î±nOÂ䋉±œF{l~XO„`¨i׶ÔÖœwò¯3IRž}¤&ë=©û¹=éëÑêz·sˆh%Ä 6’U §Ñ›tn…®ÜTýë¤%a£k_†6H?ÚÞ¹ÃÀž¤ë…×ÒjÑ%©2:ˆïlHMß·—= —àYúygÓ¬ºi’'¢ÅqßÌL9¸tgöÏh 9>\“Æsº© Ýj1yëÕ›ä;ªvøué£RµXè%¤£Ó“ofo,’;XRK
ÄÆ‘^eî¯ì†¼9ã}¦ËÌÕý÷«
^êˆÒÎÌ-aætŸU†¯t„“B˜ÝhØÆÇ¥¹§ò"¤Çöº÷¿þ_:¶-÷À‰A§Ä•Çàî•„a`äow£ BùÚ…lK]öœåa£7})èQÖ»çãð5F®6½1¶>‡jrÓ¦~ñ¼›×—ï{[ñ‘ÅàÕ$íî%7Ô’Ù¯Z6V´)âØM+XUŒ*R”›Rz)ÆYkÏ¡}¬‰%dQ ™ µ2Â%%ø÷¼ã‘£é# ²> „XS4¸qo”>-~¥˜èÛ_ŽÚIÏÝËÚ6mQÓM''Wá]ï9øÖ¸çtFCsº# »‘Äž¹Ã“‘¼™ØE¶»Ò¥:ÕZ«,¶-Ý/¤ð¿¾¶Ã%‡áòÒr÷•9߆?…r¾^¡a%$)ÆPŠÂHBa%$ "Œ'„ M@G )!a<$€HM, RB)aK "¼ÆÝcÙxóÆú&/Nט›¬»"o xÏDĨÈB„ „!Digf°ó:OªÃWº¢4·³Xy'Õa«Ý !@B M„aBa%$ "„ð’ B€XII@EM$BhÂ8II¥…,$€I)%„ÂóuŸdMãÏ蘽=^aî³ìŠ¼¹ã= ¢¡@B„¥½˜zÃÌé>«
^ëZ-ûÒÓ³w^êÌkªà£Ãš•¥6¦â†…²°É
# Copyright 2010 Gary Lieberman
#
# Please see the CHANGES and Changes file for the detailed change log
#
package PDF::Create;
use strict;
use warnings;
use Carp qw(confess croak cluck carp);
use FileHandle;
use PDF::Create::Page;
use PDF::Create::Outline;
use PDF::Image::GIF;
use PDF::Image::JPEG;
our $VERSION = '1.08';
my $DEBUG = 0;
#
# Create a new PDF file
#
sub new
{
my $this = shift;
my %params = @_;
my $class = ref($this) || $this;
my $self = {};
bless $self, $class;
$self->{'data'} = '';
$self->{'version'} = $params{'Version'} || "1.2";
$self->{'trailer'} = {};
$self->{'pages'} = PDF::Create::Page->new();
$self->{'current_page'} = $self->{'pages'};
$self->{'pages'}->{'pdf'} = $self; # circular reference
$self->{'page_count'} = 0;
$self->{'outline_count'} = 0;
$self->{'crossreftblstartaddr'} = 0; # cross-reference table start address
$self->{'generation_number'} = 0;
$self->{'object_number'} = 0;
if ( defined $params{'fh'} ) {
$self->{'fh'} = $params{'fh'};
} elsif ( defined $params{'filename'} ) {
$self->{'filename'} = $params{'filename'};
my $fh = FileHandle->new( "> $self->{'filename'}" );
carp "PDF::Create.pm: $self->{'filename'}: $!\n" unless defined $fh;
binmode $fh;
$self->{'fh'} = $fh;
}
$self->{'catalog'} = {};
$self->{'catalog'}{'PageMode'} = $params{'PageMode'}
if defined $params{'PageMode'};
# Header: add version
$self->add_version;
# Info
$self->{'Author'} = $params{'Author'} if defined $params{'Author'};
$self->{'Creator'} = $params{'Creator'} if defined $params{'Creator'};
$self->{'Title'} = $params{'Title'} if defined $params{'Title'};
$self->{'Subject'} = $params{'Subject'} if defined $params{'Subject'};
$self->{'Keywords'} = $params{'Keywords'} if defined $params{'Keywords'};
# TODO: Default creation date from system date
if ( defined $params{'CreationDate'} ) {
$self->{'CreationDate'} =
sprintf "D:%4u%0.2u%0.2u%0.2u%0.2u%0.2u",
$params{'CreationDate'}->[5] + 1900, $params{'CreationDate'}->[4] + 1,
$params{'CreationDate'}->[3], $params{'CreationDate'}->[2],
$params{'CreationDate'}->[1], $params{'CreationDate'}->[0];
}
if ( defined $params{'Debug'} ) {
print "DEBUG\n";
$DEBUG = $params{'Debug'};
# Enable stack trace for PDF::Create internal routines
$Carp::Internal{ ('PDF::Create') }++;
}
debug( 1, "Debugging level $DEBUG" );
return $self;
}
#
# Close does the work of creating the PDF data from the
# objects collected before.
#
sub close
{
my $self = shift;
my %params = @_;
debug( 2, "Closing PDF" );
$self->page_stream;
$self->add_outlines if defined $self->{'outlines'};
$self->add_catalog;
$self->add_pages;
$self->add_info;
$self->add_crossrefsection;
$self->add_trailer;
$self->{'fh'}->close
if defined $self->{'fh'} && defined $self->{'filename'};
$self->{'data'};
}
#
# Helper function for debugging
# Prints the passed message if debug level is sufficiently high
#
sub debug
{
my $level = shift;
my $msg = shift;
return unless ( $DEBUG >= $level );
my $s = scalar @_ ? sprintf $msg, @_ : $msg;
warn "DEBUG ($level): $s\n";
}
#
# Set/Return the PDF version
#
sub version
{
my $self = shift;
my $v = shift;
if ( defined $v ) {
# TODO: should test version (1.0 to 1.3)
$self->{'version'} = $v;
}
$self->{'version'};
}
# Add some data to the current PDF structure.
sub add
{
my $self = shift;
my $data = join '', @_;
$self->{'size'} += length $data;
if ( defined $self->{'fh'} ) {
my $fh = $self->{'fh'};
print $fh $data;
} else {
$self->{'data'} .= $data;
}
}
# Get the current position in the PDF
sub position
{
my $self = shift;
$self->{'size'};
}
# Reserve the next object number for the given object type.
sub reserve
{
my $self = shift;
my $name = shift;
my $type = shift || $name;
confess "Error: an object has already been reserved using this name '$name' "
if defined $self->{'reservations'}{$name};
$self->{'object_number'}++;
debug( 2, "reserve(): name=$name type=$type number=$self->{'object_number'} generation=$self->{'generation_number'}" );
$self->{'reservations'}{$name} = [ $self->{'object_number'}, $self->{'generation_number'}, $type ];
#
# Annotations added here by Gary Lieberman
#
# Store the Object ID and the Generation Number for later use when we write out the /Page object
#
if ( $type eq 'Annotation' ) {
$self->{'Annots'}{ $self->{'object_number'} } = $self->{'generation_number'};
}
#
# Annotations code ends here
#
[ $self->{'object_number'}, $self->{'generation_number'} ];
}
sub add_version
{
my $self = shift;
debug( 2, "add_version(): $self->{'version'}" );
$self->add( "%PDF-" . $self->{'version'} );
$self->cr;
}
sub add_comment
{
my $self = shift;
my $comment = shift || '';
debug( 2, "add_comment(): $comment" );
$self->add( "%" . $comment );
$self->cr;
}
sub encode
{
my $type = shift;
my $val = shift;
if ($val) {
debug( 4, "encode(): $type $val" );
} else {
debug( 4, "encode(): $type (no val)" );
}
if ( !$type ) { cluck "PDF::Create::encode: empty argument, called by "; return 1 }
( $type eq 'null' || $type eq 'number' ) && do {
1; # do nothing
}
|| $type eq 'cr' && do {
$val = "\n";
}
|| $type eq 'boolean' && do {
$val =
$val eq 'true' ? $val
: $val eq 'false' ? $val
: $val eq '0' ? 'false'
: 'true';
}
|| $type eq 'verbatim' && do {
$val = "$val";
}
|| $type eq 'string' && do {
$val = '' if not defined $val;
$val = "($val)"; # TODO: split it. Quote parentheses.
}
|| $type eq 'number' && do {
$val = "$val";
}
|| $type eq 'name' && do {
$val = '' if not defined $val;
$val = "/$val";
}
|| $type eq 'array' && do {
# array, encode contents individually
my $s = '[';
for my $v (@$val) {
$s .= &encode( $$v[0], $$v[1] ) . " ";
}
chop $s; # remove the trailing space
$val = $s . "]";
}
|| $type eq 'dictionary' && do {
my $s = '<<' . &encode('cr');
for my $v ( keys %$val ) {
$s .= &encode( 'name', $v ) . " ";
$s .= &encode( ${ $$val{$v} }[0], ${ $$val{$v} }[1] ); # . " ";
$s .= &encode('cr');
}
$val = $s . ">>";
}
|| $type eq 'object' && do {
my $s = &encode( 'number', $$val[0] ) . " " . &encode( 'number', $$val[1] ) . " obj";
$s .= &encode('cr');
$s .= &encode( $$val[2][0], $$val[2][1] ); # . " ";
$s .= &encode('cr');
$val = $s . "endobj";
}
|| $type eq 'ref' && do {
my $s = &encode( 'number', $$val[0] ) . " " . &encode( 'number', $$val[1] ) . " R";
$val = $s;
}
|| $type eq 'stream' && do {
my $data = delete $$val{'Data'};
my $s = '<<' . &encode('cr');
for my $v ( keys %$val ) {
$s .= &encode( 'name', $v ) . " ";
$s .= &encode( ${ $$val{$v} }[0], ${ $$val{$v} }[1] ); # . " ";
$s .= &encode('cr');
}
$s .= ">>" . &encode('cr') . "stream" . &encode('cr');
$s .= $data . &encode('cr');
$val = $s . "endstream" . &encode('cr');
}
|| confess "Error: unknown type '$type'";
# TODO: add type 'text';
$val;
}
sub add_object
{
my $self = shift;
my $v = shift;
my $val = &encode(@$v);
$self->add($val);
$self->cr;
debug( 3, "add_object(): $v -> $val" );
[ $$v[1][0], $$v[1][1] ];
}
sub null
{
my $self = shift;
[ 'null', 'null' ];
}
sub boolean
{
my $self = shift;
my $val = shift;
[ 'boolean', $val ];
}
sub number
{
my $self = shift;
my $val = shift;
[ 'number', $val ];
}
sub name
{
my $self = shift;
my $val = shift;
[ 'name', $val ];
}
sub string
{
my $self = shift;
my $val = shift;
[ 'string', $val ];
}
sub verbatim
{
my $self = shift;
my $val = shift;
[ 'verbatim', $val ];
}
sub array
{
my $self = shift;
[ 'array', [@_] ];
}
sub dictionary
{
my $self = shift;
[ 'dictionary', {@_} ];
}
sub indirect_obj
{
my $self = shift;
my ( $id, $gen, $type, $name );
$name = $_[1];
$type = $_[0][1]{'Type'}[1]
if defined $_[0][1] && ref $_[0][1] eq 'HASH' && defined $_[0][1]{'Type'};
if ( defined $name && defined $self->{'reservations'}{$name} ) {
( $id, $gen ) = @{ $self->{'reservations'}{$name} };
delete $self->{'reservations'}{$name};
} elsif ( defined $type && defined $self->{'reservations'}{$type} ) {
( $id, $gen ) = @{ $self->{'reservations'}{$type} };
delete $self->{'reservations'}{$type};
} else {
$id = ++$self->{'object_number'};
$gen = $self->{'generation_number'};
}
debug( 3, "indirect_obj(): " . $self->position );
push @{ $self->{'crossrefsubsection'}{$gen} }, [ $id, $self->position, 1 ];
[ 'object', [ $id, $gen, @_ ] ];
}
sub indirect_ref
{
my $self = shift;
[ 'ref', [@_] ];
}
sub stream
{
my $self = shift;
[ 'stream', {@_} ];
}
sub add_info
{
my $self = shift;
debug( 2, "add_info():" );
my %params = @_;
$params{'Author'} = $self->{'Author'} if defined $self->{'Author'};
$params{'Creator'} = $self->{'Creator'} if defined $self->{'Creator'};
$params{'Title'} = $self->{'Title'} if defined $self->{'Title'};
$params{'Subject'} = $self->{'Subject'} if defined $self->{'Subject'};
$params{'Keywords'} = $self->{'Keywords'} if defined $self->{'Keywords'};
$params{'CreationDate'} = $self->{'CreationDate'}
if defined $self->{'CreationDate'};
$self->{'info'} = $self->reserve('Info');
my $content = { 'Producer' => $self->string("PDF::Create version $VERSION"),
'Type' => $self->name('Info')
};
$$content{'Author'} = $self->string( $params{'Author'} )
if defined $params{'Author'};
$$content{'Creator'} = $self->string( $params{'Creator'} )
if defined $params{'Creator'};
$$content{'Title'} = $self->string( $params{'Title'} )
if defined $params{'Title'};
$$content{'Subject'} = $self->string( $params{'Subject'} )
if defined $params{'Subject'};
$$content{'Keywords'} = $self->string( $params{'Keywords'} )
if defined $params{'Keywords'};
$$content{'CreationDate'} = $self->string( $params{'CreationDate'} )
if defined $params{'CreationDate'};
$self->add_object( $self->indirect_obj( $self->dictionary(%$content) ), 'Info' );
$self->cr;
}
# Catalog specification.
sub add_catalog
{
my $self = shift;
debug( 2, "add_catalog" );
my %params = %{ $self->{'catalog'} };
# Type (mandatory)
$self->{'catalog'} = $self->reserve('Catalog');
my $content = { 'Type' => $self->name('Catalog') };
# Pages (mandatory) [indirected reference]
my $pages = $self->reserve('Pages');
$$content{'Pages'} = $self->indirect_ref(@$pages);
$self->{'pages'}{'id'} = $$content{'Pages'}[1];
# Outlines [indirected reference]
$$content{'Outlines'} = $self->indirect_ref( @{ $self->{'outlines'}->{'id'} } )
if defined $self->{'outlines'};
# PageMode
$$content{'PageMode'} = $self->name( $params{'PageMode'} )
if defined $params{'PageMode'};
$self->add_object( $self->indirect_obj( $self->dictionary(%$content) ) );
$self->cr;
}
sub add_outlines
{
my $self = shift;
debug( 2, "add_outlines" );
my %params = @_;
my $outlines = $self->reserve("Outlines");
my ( $First, $Last );
my @list = $self->{'outlines'}->list;
my $i = -1;
for my $outline (@list) {
$i++;
my $name = $outline->{'name'};
$First = $outline->{'id'} unless defined $First;
$Last = $outline->{'id'};
my $content = { 'Title' => $self->string( $outline->{'Title'} ) };
if ( defined $outline->{'Kids'} && scalar @{ $outline->{'Kids'} } ) {
my $t = $outline->{'Kids'};
$$content{'First'} = $self->indirect_ref( @{ $$t[0]->{'id'} } );
$$content{'Last'} = $self->indirect_ref( @{ $$t[$#$t]->{'id'} } );
}
my $brothers = $outline->{'Parent'}->{'Kids'};
my $j = -1;
for my $brother (@$brothers) {
$j++;
last if $brother == $outline;
}
$$content{'Next'} = $self->indirect_ref( @{ $$brothers[ $j + 1 ]->{'id'} } )
if $j < $#$brothers;
$$content{'Prev'} = $self->indirect_ref( @{ $$brothers[ $j - 1 ]->{'id'} } )
if $j;
$outline->{'Parent'}->{'id'} = $outlines
unless defined $outline->{'Parent'}->{'id'};
$$content{'Parent'} = $self->indirect_ref( @{ $outline->{'Parent'}->{'id'} } );
$$content{'Dest'} =
$self->array( $self->indirect_ref( @{ $outline->{'Dest'}->{'id'} } ),
$self->name('Fit'), $self->null, $self->null, $self->null );
my $count = $outline->count;
$$content{'Count'} = $self->number($count) if $count;
my $t = $self->add_object( $self->indirect_obj( $self->dictionary(%$content), $name ) );
$self->cr;
}
# Type (required)
my $content = { 'Type' => $self->name('Outlines') };
# Count
my $count = $self->{'outlines'}->count;
$$content{'Count'} = $self->number($count) if $count;
$$content{'First'} = $self->indirect_ref(@$First);
$$content{'Last'} = $self->indirect_ref(@$Last);
$self->add_object( $self->indirect_obj( $self->dictionary(%$content) ) );
$self->cr;
}
sub new_outline
{
my $self = shift;
my %params = @_;
unless ( defined $self->{'outlines'} ) {
$self->{'outlines'} = PDF::Create::Outline->new();
$self->{'outlines'}->{'pdf'} = $self; # circular reference
$self->{'outlines'}->{'Status'} = 'opened';
}
my $parent = $params{'Parent'} || $self->{'outlines'};
my $name = "Outline " . ++$self->{'outline_count'};
$params{'Destination'} = $self->{'current_page'}
unless defined $params{'Destination'};
my $outline = $parent->add( $self->reserve( $name, "Outline" ), $name, %params );
$outline;
}
sub get_page_size
{
my $self = shift;
my $name = lc(shift);
my %pagesizes = ( 'A0' => [ 0, 0, 2380, 3368 ],
'A1' => [ 0, 0, 1684, 2380 ],
'A2' => [ 0, 0, 1190, 1684 ],
'A3' => [ 0, 0, 842, 1190 ],
'A4' => [ 0, 0, 595, 842 ],
'A4L' => [ 0, 0, 842, 595 ],
'A5' => [ 0, 0, 421, 595 ],
'A6' => [ 0, 0, 297, 421 ],
'LETTER' => [ 0, 0, 612, 792 ],
'BROADSHEET' => [ 0, 0, 1296, 1584 ],
'LEDGER' => [ 0, 0, 1224, 792 ],
'TABLOID' => [ 0, 0, 792, 1224 ],
'LEGAL' => [ 0, 0, 612, 1008 ],
'EXECUTIVE' => [ 0, 0, 522, 756 ],
'36X36' => [ 0, 0, 2592, 2592 ],
);
if ( !$pagesizes{ uc($name) } ) {
$name = "A4";
}
$pagesizes{ uc($name) };
}
sub new_page
{
my $self = shift;
my %params = @_;
my $parent = $params{'Parent'} || $self->{'pages'};
my $name = "Page " . ++$self->{'page_count'};
my $page = $parent->add( $self->reserve( $name, "Page" ), $name );
$page->{'resources'} = $params{'Resources'} if defined $params{'Resources'};
$page->{'mediabox'} = $params{'MediaBox'} if defined $params{'MediaBox'};
$page->{'cropbox'} = $params{'CropBox'} if defined $params{'CropBox'};
$page->{'artbox'} = $params{'ArtBox'} if defined $params{'ArtBox'};
$page->{'trimbox'} = $params{'TrimBox'} if defined $params{'TrimBox'};
$page->{'bleedbox'} = $params{'BleedBox'} if defined $params{'BleedBox'};
$page->{'rotate'} = $params{'Rotate'} if defined $params{'Rotate'};
$self->{'current_page'} = $page;
$page;
}
sub add_pages
{
my $self = shift;
debug( 2, "add_pages():" );
# $self->page_stream;
my %params = @_;
# Type (required)
my $content = { 'Type' => $self->name('Pages') };
# Kids (required)
my $t = $self->{'pages'}->kids;
confess "Error: document MUST contains at least one page. Abort."
unless scalar @$t;
my $kids = [];
map { push @$kids, $self->indirect_ref(@$_) } @$t;
$$content{'Kids'} = $self->array(@$kids);
$$content{'Count'} = $self->number( $self->{'pages'}->count );
$self->add_object( $self->indirect_obj( $self->dictionary(%$content) ) );
$self->cr;
for my $font ( sort keys %{ $self->{'fonts'} } ) {
debug( 2, "add_pages(): font: $font" );
$self->{'fontobj'}{$font} = $self->reserve('Font');
$self->add_object( $self->indirect_obj( $self->dictionary( %{ $self->{'fonts'}{$font} } ), 'Font' ) );
$self->cr;
}
for my $xobject ( sort keys %{ $self->{'xobjects'} } ) {
debug( 2, "add_pages(): xobject: $xobject" );
$self->{'xobj'}{$xobject} = $self->reserve('XObject');
$self->add_object( $self->indirect_obj( $self->stream( %{ $self->{'xobjects'}{$xobject} } ), 'XObject' ) );
$self->cr;
if ( defined $self->{'reservations'}{"ImageColorSpace$xobject"} ) {
$self->add_object(
$self->indirect_obj( $self->stream( %{ $self->{'xobjects_colorspace'}{$xobject} } ), "ImageColorSpace$xobject" ) );
$self->cr;
}
}
for my $annotation ( sort keys %{ $self->{'annotations'} } ) {
$self->{'annot'}{$annotation}{'object_info'} = $self->reserve('Annotation');
$self->add_object( $self->indirect_obj( $self->dictionary( %{ $self->{'annotations'}{$annotation} } ), 'Annotation' ) );
$self->cr;
}
for my $page ( $self->{'pages'}->list ) {
my $name = $page->{'name'};
debug( 2, "add_pages: page: $name" );
my $type = 'Page' . ( defined $page->{'Kids'} && scalar @{ $page->{'Kids'} } ? 's' : '' );
# Type (required)
my $content = { 'Type' => $self->name($type) };
# Resources (required, may be inherited). See page 195.
my $resources = {};
for my $k ( keys %{ $page->{'resources'} } ) {
my $v = $page->{'resources'}{$k};
( $k eq 'ProcSet' ) && do {
my $l = [];
if ( ref($v) eq 'ARRAY' ) {
map { push @$l, $self->name($_) } @$v;
} else {
push @$l, $self->name($v);
}
$$resources{'ProcSet'} = $self->array(@$l);
}
|| ( $k eq 'fonts' ) && do {
my $l = {};
map { $$l{"F$_"} = $self->indirect_ref( @{ $self->{'fontobj'}{$_} } ); } keys %{ $page->{'resources'}{'fonts'} };
$$resources{'Font'} = $self->dictionary(%$l);
}
|| ( $k eq 'xobjects' ) && do {
my $l = {};
map { $$l{"Image$_"} = $self->indirect_ref( @{ $self->{'xobj'}{$_} } ); }
keys %{ $page->{'resources'}{'xobjects'} };
$$resources{'XObject'} = $self->dictionary(%$l);
};
}
if ( defined( $$resources{'Annotation'} ) ) {
my $r = $self->add_object( $self->indirect_obj( $self->dictionary(%$resources) ) );
$self->cr;
$$content{'Resources'} = [ 'ref', [ $$r[0], $$r[1] ] ];
}
if ( defined( $$resources{'XObject'} ) ) {
my $r = $self->add_object( $self->indirect_obj( $self->dictionary(%$resources) ) );
$self->cr;
$$content{'Resources'} = [ 'ref', [ $$r[0], $$r[1] ] ];
} else {
$$content{'Resources'} = $self->dictionary(%$resources)
if scalar keys %$resources;
}
for my $K ( 'MediaBox', 'CropBox', 'ArtBox', 'TrimBox', 'BleedBox' ) {
my $k = lc $K;
if ( defined $page->{$k} ) {
my $l = [];
map { push @$l, $self->number($_) } @{ $page->{$k} };
$$content{$K} = $self->array(@$l);
}
}
$$content{'Rotate'} = $self->number( $page->{'rotate'} ) if defined $page->{'rotate'};
if ( $type eq 'Page' ) {
$$content{'Parent'} = $self->indirect_ref( @{ $page->{'Parent'}{'id'} } );
# Content
if ( defined $page->{'contents'} ) {
my $contents = [];
map { push @$contents, $self->indirect_ref(@$_); } @{ $page->{'contents'} };
$$content{'Contents'} = $self->array(@$contents);
}
#
# Annotations added here by Gary Lieberman
#
# Tell the /Page object that annotations need to be drawn.
#
if ( defined $self->{'annot'} ) {
my $Annots = '[ ';
my $is_annots = 0;
foreach my $annot_number ( keys %{ $self->{'annot'} } ) {
next if ( $self->{'annot'}{$annot_number}{'page_name'} ne $name );
$is_annots = 1;
debug( 2,
sprintf "annotation number: $annot_number, page name: $self->{'annot'}{$annot_number}{'page_name'}" );
my $object_number = $self->{'annot'}{$annot_number}{'object_info'}[0];
my $generation_number = $self->{'annot'}{$annot_number}{'object_info'}[1];
debug( 2, sprintf "object_number: $object_number, generation_number: $generation_number" );
$Annots .= sprintf( "%s %s R ", $object_number, $generation_number );
}
$$content{'Annots'} = $self->verbatim( $Annots . ']' ) if ($is_annots);
}
#
# Annotations code ends here
#
} else {
my $kids = [];
map { push @$kids, $self->indirect_ref(@$_) } @{ $page->kids };
$$content{'Kids'} = $self->array(@$kids);
$$content{'Parent'} = $self->indirect_ref( @{ $page->{'Parent'}{'id'} } )
if defined $page->{'Parent'};
$$content{'Count'} = $self->number( $page->count );
}
$self->add_object( $self->indirect_obj( $self->dictionary(%$content), $name ) );
$self->cr;
}
}
sub add_crossrefsection
{
my $self = shift;
debug( 2, "add_crossrefsection():" );
# ::=
# xref
# +
$self->{'crossrefstartpoint'} = $self->position;
$self->add('xref');
$self->cr;
confess "Fatal error: should contains at least one cross reference subsection."
unless defined $self->{'crossrefsubsection'};
for my $subsection ( sort keys %{ $self->{'crossrefsubsection'} } ) {
$self->add_crossrefsubsection($subsection);
}
}
sub add_crossrefsubsection
{
my $self = shift;
my $subsection = shift;
debug( 2, "add_crossrefsubsection():" );
# ::=
#