r7671 - in /branches/upstream/libpdf-api2-perl/current: META.yml lib/PDF/API2/Annotation.pm lib/PDF/API2/Resource/XObject/Image/TIFF.pm lib/PDF/API2/Version.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Sep 17 20:33:18 UTC 2007
Author: dmn
Date: Mon Sep 17 20:33:17 2007
New Revision: 7671
URL: http://svn.debian.org/wsvn/?sc=1&rev=7671
Log:
[svn-upgrade] Integrating new upstream version, libpdf-api2-perl (0.64)
Modified:
branches/upstream/libpdf-api2-perl/current/META.yml
branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm
branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm
branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm
Modified: branches/upstream/libpdf-api2-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/META.yml?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/META.yml (original)
+++ branches/upstream/libpdf-api2-perl/current/META.yml Mon Sep 17 20:33:17 2007
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: PDF-API2
-version: 0.63
+version: 0.64
version_from: lib/PDF/API2/Version.pm
installdirs: site
requires:
Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Annotation.pm Mon Sep 17 20:33:17 2007
@@ -214,6 +214,29 @@
return($self);
}
+=item $ant->movie $file, $contentype, %opts
+
+Defines the annotation as a movie from $file with $contentype and
+options %opts (-rect).
+
+=cut
+
+sub movie
+{
+ my ($self,$file,$contentype,%opts)=@_;
+ $self->{Subtype}=PDFName('Movie');
+ $self->{A}=PDFBool(1);
+ $self->{Movie}=PDFDict();
+ $self->{Movie}->{F}=PDFDict();
+ $self->{' apipdf'}->new_obj($self->{Movie}->{F});
+ my $f=$self->{Movie}->{F};
+ $f->{Type}=PDFName('EmbeddedFile');
+ $f->{Subtype}=PDFName($contentype);
+ $f->{' streamfile'}=$file;
+ $self->rect(@{$opts{-rect}}) if(defined $opts{-rect});
+ return($self);
+}
+
=item $ant->rect $llx, $lly, $urx, $ury
Sets the rectangle of the annotation.
Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Resource/XObject/Image/TIFF.pm Mon Sep 17 20:33:17 2007
@@ -27,7 +27,7 @@
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
-# $Id: TIFF.pm,v 2.1 2007/03/17 20:38:51 areibens Exp $
+# $Id: TIFF.pm,v 2.3 2007/09/17 16:03:07 areibens Exp $
#
#=======================================================================
package PDF::API2::Resource::XObject::Image::TIFF;
@@ -45,7 +45,7 @@
@ISA = qw( PDF::API2::Resource::XObject::Image );
- ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.1 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/03/17 20:38:51 $
+ ( $VERSION ) = sprintf '%i.%03i', split(/\./,('$Revision: 2.3 $' =~ /Revision: (\S+)\s/)[0]); # $Date: 2007/09/17 16:03:07 $
}
no warnings qw[ deprecated recursion uninitialized ];
@@ -362,7 +362,8 @@
B<Useful Tags:>
imageDescription, imageId (strings)
- xRes, yRes (dpi)
+ xRes, yRes (dpi; pixel/cm if resUnit==3)
+ resUnit
=cut
@@ -572,6 +573,9 @@
$fh->seek($here,0);
$self->{yRes}=[unpack($self->{rational},$self->{yRes})];
$self->{yRes}=($self->{yRes}->[0]/$self->{yRes}->[1]);
+ } elsif($valTag==296) {
+ # resolution Unit
+ $self->{resUnit}=$valOffset;
} elsif($valTag==273) {
# image data offset/strip offsets
if($valCount==1) {
@@ -641,6 +645,12 @@
=head1 HISTORY
$Log: TIFF.pm,v $
+ Revision 2.3 2007/09/17 16:03:07 areibens
+ update docs for tiffTag
+
+ Revision 2.2 2007/09/14 15:36:39 areibens
+ also read Tiff Tag 296 and make it available as resUnit
+
Revision 2.1 2007/03/17 20:38:51 areibens
replaced IOString dep. with scalar IO.
Modified: branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm?rev=7671&op=diff
==============================================================================
--- branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm (original)
+++ branches/upstream/libpdf-api2-perl/current/lib/PDF/API2/Version.pm Mon Sep 17 20:33:17 2007
@@ -9,14 +9,14 @@
package PDF::API2::Version;
BEGIN {
use vars qw( $VERSION %CVersion );
- $VERSION = '0.63';
+ $VERSION = '0.64';
%CVersion = (
- 'vFredo' => 'PDF::API2 0.63',
- 'vHex' => '0x0003F000',
- 'vLong' => '0.63',
- 'vPerl' => '0.63',
- 'vShort' => '0.63',
- 'vWeb' => 'PDF::API2/0.63',
+ 'vFredo' => 'PDF::API2 0.64',
+ 'vHex' => '0x00040000',
+ 'vLong' => '0.64',
+ 'vPerl' => '0.64',
+ 'vShort' => '0.64',
+ 'vWeb' => 'PDF::API2/0.64',
);
}
1;
@@ -32,12 +32,12 @@
=head1 VERSION
- vFredo: PDF::API2 0.63
- vHex: 0x0003F000
- vLong: 0.63
- vPerl: 0.63
- vShort: 0.63
- vWeb: PDF::API2/0.63
+ vFredo: PDF::API2 0.64
+ vHex: 0x00040000
+ vLong: 0.64
+ vPerl: 0.64
+ vShort: 0.64
+ vWeb: PDF::API2/0.64
=cut
More information about the Pkg-perl-cvs-commits
mailing list