r35544 - in /trunk/libpdf-create-perl: Changes Changes.PL META.yml debian/changelog debian/compat debian/control debian/copyright debian/rules lib/PDF/Create.pm lib/PDF/Create/Page.pm lib/PDF/Image/GIF.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun May 17 04:04:59 UTC 2009
Author: jawnsy-guest
Date: Sun May 17 04:04:52 2009
New Revision: 35544
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35544
Log:
New version and debian/* changes
Modified:
trunk/libpdf-create-perl/Changes
trunk/libpdf-create-perl/Changes.PL
trunk/libpdf-create-perl/META.yml
trunk/libpdf-create-perl/debian/changelog
trunk/libpdf-create-perl/debian/compat
trunk/libpdf-create-perl/debian/control
trunk/libpdf-create-perl/debian/copyright
trunk/libpdf-create-perl/debian/rules
trunk/libpdf-create-perl/lib/PDF/Create.pm
trunk/libpdf-create-perl/lib/PDF/Create/Page.pm
trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm
Modified: trunk/libpdf-create-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Changes?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Changes (original)
+++ trunk/libpdf-create-perl/Changes Sun May 17 04:04:52 2009
@@ -1,139 +1,147 @@
-commit 73d46b5...
+commit d2f238a... PDF::Create v1.03^0
Author: Markus Baertschi <markus at markus.org>
-Date: Thu Jul 10 17:49:15 2008 +0200
+Date: Tue Mar 24 00:52:31 2009 +0100
+
+ Fix: Missing % in line 93, reported by Dan Carson.
+
+commit d6b21d3... PDF::Create v1.03
+Author: Markus Baertschi <markus at markus.org>
+Date: Fri Jul 11 00:01:10 2008 +0200
+
+ Updated Changelog generation to add version information.
+ The version information is coming from tags. New version = tag.
+
+commit 87b3f1b... PDF::Create v1.02
+Author: Markus Baertschi <markus at markus.org>
+Date: Thu Jul 10 22:36:02 2008 +0200
Fixed gif image processing on big-endian machines.
- Thanks to Neil Watkiss <neil.watkiss at gmail.com> for the patch !
+ Thanks to Neil Watkiss <neil.watkiss at gmail.com> for the patch.
+ Published as Version 1.02.
-commit 52789c0...
-Author: Markus Baertschi <markus at markus.org>
-Date: Tue Jun 3 14:47:38 2008 +0200
-
- Additions to Page.pm by Slaven
-
-commit 886ea2e...
+commit 886ea2e... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Tue Jun 3 12:43:41 2008 +0200
Renamed Image modules to fix bug 28636 (rt.cpan.org).
-commit 7acfe62...
+commit 7acfe62... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Tue Jun 3 10:53:56 2008 +0200
Updates Michael's email, added reference to git repository at github
-commit e52ef1f...
+commit e52ef1f... PDF::Create v1.01
Merge: 88fad3e... 875425d...
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:26:23 2008 +0200
Merge branch 'master' of git://github.com/markusb/pdf-create
-commit 88fad3e...
+commit 88fad3e... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:20:33 2008 +0200
Updated version to 1.0 to fit better with PDF::Create and show maturity
-commit ccf26de...
+commit ccf26de... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 19:18:35 2008 +0200
Updated build system to generate Changes file directly from git log
-commit 28b0922...
+commit 28b0922... PDF::Create v1.0
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:49:32 2008 +0200
Version 1.0
-commit 875425d...
+commit 875425d... PDF::Create v1.01
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:49:32 2008 +0200
Version 1.0
-commit 9adbcbf...
+commit 9adbcbf... PDF::Create v1.0
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 12:05:17 2008 +0200
More POD fixing
-commit 6f7ba3f...
+commit 6f7ba3f... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Sat May 31 11:23:50 2008 +0200
Version 0.10
-commit f9e1656...
+commit f9e1656... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Fri May 30 09:00:53 2008 +0200
Clarified documentation
-commit da76efc...
+commit da76efc... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Thu May 29 22:04:07 2008 +0200
Fixed 'Rotate', added debugging
-commit e240621...
+commit e240621... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 19:44:21 2008 +0200
Fixed documentation formatting
-commit fe3823d...
+commit fe3823d... PDF::Create v0.10
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 18:00:13 2008 +0200
Added small cgi sample
-commit 87fc07f...
+commit 87fc07f... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:21:57 2008 +0200
Changed version to 0.9
-commit 90f37ce...
+commit 90f37ce... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:18:40 2008 +0200
Cleaned up samples and comments
-commit 2b50205...
+commit 2b50205... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:07:10 2008 +0200
Added better testing
-commit 48262cc...
+commit 48262cc... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:03:48 2008 +0200
Improved documentation
-commit 3ed3ded...
+commit 3ed3ded... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Tue May 20 17:02:30 2008 +0200
Add error-checking
-commit a726f88...
+commit a726f88... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Sun Sep 30 19:00:42 2007 +0200
Re-added pdf-logo files
-commit 1490f88...
+commit 1490f88... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Sun Sep 30 18:59:04 2007 +0200
New function: printnl (print multiple lines)
Modified: get_page_size (arguments case-independent)
-commit e4d7378...
+commit e4d7378... PDF::Create v0.9
Author: Markus Baertschi <markus at markus.org>
Date: Mon Sep 3 18:05:29 2007 +0200
Modified: trunk/libpdf-create-perl/Changes.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/Changes.PL?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/Changes.PL (original)
+++ trunk/libpdf-create-perl/Changes.PL Sun May 17 04:04:52 2009
@@ -2,10 +2,26 @@
#
# Changes.PL
#
-# Create the 'Changes' file automatically from git commit messages'
-#
+# Create the 'Changes' file automatically from git commit messages
+# and versioning tags in the repository
use strict;
-`git log --abbrev-commit --pretty > Changes`;
+open(OUT, ">Changes") or die "Can not open 'Changes' for writing\n";
+open(IN,"git log --abbrev-commit --pretty |") or die "Can not run git\n";
+while(<IN>){
+ # read the change log
+ if (/^commit /) {
+ chop;
+ # for each commit get the version from git
+ my $sha=(split(/ /,$_,2))[1];
+ $sha =~ s/\.\.\.$//;
+ my $vers = `git name-rev --tags $sha 2>/dev/null`;
+ $vers =~ s/^.*\///;
+ $vers =~ s/~.*$//;
+ print OUT "commit $sha... PDF::Create $vers";
+ } else {
+ print OUT;
+ }
+}
Modified: trunk/libpdf-create-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/META.yml?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/META.yml (original)
+++ trunk/libpdf-create-perl/META.yml Sun May 17 04:04:52 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: PDF-Create
-version: 1.02
+version: 1.03
abstract: create PDF files
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
Modified: trunk/libpdf-create-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/changelog?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/changelog (original)
+++ trunk/libpdf-create-perl/debian/changelog Sun May 17 04:04:52 2009
@@ -1,9 +1,22 @@
-libpdf-create-perl (1.02-2) UNRELEASED; urgency=low
+libpdf-create-perl (1.03-1) UNRELEASED; urgency=low
+ [ Jonathan Yu ]
+ * New upstream release (bug fix maintenance release)
+ * Upstream author removed Markus Baertschi and Slaven Rezic from
+ copyright in lib/PDF/Create/Page.pm
+ * Contributed methods for dealing with circles was removed (as a result,
+ Slaven Rezic no longer has code in the package and is removed as a
+ copyright holder)
+ * Fixed long description
+ * Added Suggests: libpdf-api2-perl (which is referred to by the perldoc)
+ * Bumped Standards-Version to 3.8.1; updated debhelper stuff (using
+ dh-make-perl --refresh)
+
+ [ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:45:57 +0100
+ -- Jonathan Yu <frequency at cpan.org> Sat, 16 May 2009 23:29:56 -0400
libpdf-create-perl (1.02-1) unstable; urgency=low
Modified: trunk/libpdf-create-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/compat?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/compat (original)
+++ trunk/libpdf-create-perl/debian/compat Sun May 17 04:04:52 2009
@@ -1,1 +1,1 @@
-5
+7
Modified: trunk/libpdf-create-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/control?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/control (original)
+++ trunk/libpdf-create-perl/debian/control Sun May 17 04:04:52 2009
@@ -1,27 +1,29 @@
Source: libpdf-create-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 5), quilt (>= 0.40)
+Build-Depends: debhelper (>= 7), quilt (>= 0.40)
Build-Depends-Indep: perl (>= 5.8.0-7)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Vincent Danjean <vdanjean at debian.org>,
- gregor herrmann <gregoa at debian.org>, Damyan Ivanov <dmn at debian.org>
-Standards-Version: 3.8.0
+Uploaders: Jonathan Yu <frequency at cpan.org>, Damyan Ivanov <dmn at debian.org>,
+ Vincent Danjean <vdanjean at debian.org>, gregor herrmann <gregoa at debian.org>
+Standards-Version: 3.8.1
Homepage: http://ssearch.cpan.org/dist/PDF-Create/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpdf-create-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpdf-create-perl/
Package: libpdf-create-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}
-Description: Create PDF files
- 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.
+Depends: ${perl:Depends}, ${misc:Depends}
+Suggests: libpdf-api2-perl
+Description: Perl module to create PDF files
+ PDF::Create allows you to create documents in the Portable Document Format
+ (PDF) using a large number of primitives, and emit the result as a PDF file
+ or stream.
.
- Documents can have several pages, a table of content, an information
- section and many other PDF elements. More functionalities will be
- added as needs arise.
+ Documents can have several pages, a table of content, an information section
+ and many other PDF elements. Since documents are constructed on-the-fly, the
+ memory footprint is not tied to the size of the pages; only the number of
+ pages.
.
- 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 is intended to be simple and highly portable, as it is written purely in
+ Perl. For more complex tasks, see libpdf-api2-perl.
Modified: trunk/libpdf-create-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/copyright?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/copyright (original)
+++ trunk/libpdf-create-perl/debian/copyright Sun May 17 04:04:52 2009
@@ -1,50 +1,43 @@
-This is the debian package for the PDF::Create module.
-It was created by Vincent Danjean <Vincent.Danjean at ens-lyon.org> using dh-make-perl.
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Markus Baertschi <markus at markus.org>
+Upstream-Source: http://search.cpan.org/dist/PDF-Create/
+Upstream-Name: PDF-Create
-X-Source-Downloaded-From: http://search.cpan.org/dist/PDF-Create/
+Files: *
+Copyright: 2007-2008, Markus Baertschi <markus at markus.org>
+ 1999, Fabien Tassin <fta at sofaraway.org>
+License: other
+ All rights reserved. It may be used and modified freely, but I do request
+ that this copyright notice remain attached to the file. You may modify
+ this module as you wish, but if you redistribute a modified version,
+ please attach a note listing the modifications you have made.
-X-Upstream-Author: Fabien Tassin <fta at sofaraway.org>
- Michael Gross <mdgrosse at sbox.tugraz.at>
- Markus Baertschi <markus at markus.org>
-
-Files: lib/PDF/Create.pm
-Copyright: © 1999-2001 Fabien Tassin <fta at sofaraway.org>
- © 2007- Markus Baertschi
+Files: lib/PDF/Image/GIF.pm
+Copyright: 2001, Michael Gross <info at mdgrosse.net>
+ 2007, Markus Baertschi <markus at markus.org>
License: other
- All rights reserved.
- It may be used and modified freely, but I do request that
- this copyright notice remain attached to the file. You may
- modify this module as you wish, but if you redistribute a
- modified version, please attach a note listing the modifications
- you have made.
-
-Files: lib/PDF/Image/*.pm
-Copyright: © 2001 Michael Gross <mdgrosse at sbox.tugraz.at>
- © 2007 Markus Baertschi <markus at markus.org>
-License: other
- The files in Image/ don't have an explicit licensing. They are asumed to use
- the same licensing as lib/PDF/Create.pm
-
-Files: lib/PDF/Create/Page.pm
-Copyright: © 1999-2001 Fabien Tassin <fta at sofaraway.org>
- © 2007-2008 Markus Baertschi
- © 2008 Slaven Rezic
-License: other
- This file doesn't have an explicit licensing. They are asumed to use the same
- licensing as lib/PDF/Create.pm
-
-Files: lib/PDF/Create/Outline.pm
-Copyright: © 1999 Fabien Tassin <fta at sofaraway.org>
-License: other
- This file doesn't have an explicit licensing. They are asumed to use the same
- licensing as lib/PDF/Create.pm
+X-Comment: I am assuming the license is the same as the rest of the package,
+ since there is no reason to assume otherwise.
Files: debian/*
-Copyright: © 2006 Vincent Danjean <Vincent.Danjean at ens-lyon.org>
- © 2008 Damyan Ivanov <dmn at debian.org>
- © 2008 gregor herrmann <gregoa at debian.org>
-License: BSD-3
- The Debian packaging is licensed under the BSD license.
- .
- On Debian systems, the complete text of the BSD License can be found in
- `/usr/share/common-licenses/BSD'.
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2008, Damyan Ivanov <dmn at debian.org>
+ 2008, gregor herrmann <gregoa at debian.org>
+ 2007, Joey Hess <joeyh at debian.org>
+ 2006, Vincent Danjean <Vincent.Danjean at ens-lyon.org>
+License: other | Artistic | GPL-1+
+
+License: Artistic
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
+
+License: GPL-1+
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libpdf-create-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/debian/rules?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/debian/rules (original)
+++ trunk/libpdf-create-perl/debian/rules Sun May 17 04:04:52 2009
@@ -1,66 +1,23 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-include /usr/share/quilt/quilt.make
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PERL ?= /usr/bin/perl
-PACKAGE = $(shell dh_listpackages)
-TMP = $(CURDIR)/debian/$(PACKAGE)
build: build-stamp
-build-stamp: $(QUILT_STAMPFN)
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
+build-stamp:
+ dh build
touch $@
-clean: unpatch
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
+clean:
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
- [ ! -f $(TMP)/usr/share/perl5/PDF/sample.pl ] || $(RM) $(TMP)/usr/share/perl5/PDF/sample.pl
- [ ! -f $(TMP)/usr/share/perl5/PDF/sample-cgi.pl ] || $(RM) $(TMP)/usr/share/perl5/PDF/sample-cgi.pl
- [ ! -d $(TMP)/usr/lib/perl5 ] || \
- rmdir --ignore-fail-on-non-empty --parents --verbose \
- $(TMP)/usr/lib/perl5
+ dh install
touch $@
binary-arch:
-# We have nothing to do here for an architecture-independent package
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installexamples sample.pl sample-cgi.pl pdf-logo.*
- chmod 0644 $(TMP)/usr/share/doc/$(PACKAGE)/examples/pdf-logo.*
- dh_installdocs
- dh_installchangelogs CHANGES
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install
+binary: binary-arch binary-indep
+
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libpdf-create-perl/lib/PDF/Create.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Create.pm?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Create.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Create.pm Sun May 17 04:04:52 2009
@@ -25,7 +25,7 @@
package PDF::Create;
-our $VERSION = "1.02";
+our $VERSION = "1.03";
our $DEBUG = 0;
use strict;
@@ -90,7 +90,7 @@
$self->{'Keywords'} = $params{'Keywords'} if defined $params{'Keywords'};
if (defined $params{'CreationDate'}) {
$self->{'CreationDate'} =
- sprintf "D:4u%0.2u%0.2u%0.2u%0.2u%0.2u",
+ 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];
Modified: trunk/libpdf-create-perl/lib/PDF/Create/Page.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Create/Page.pm?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Create/Page.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Create/Page.pm Sun May 17 04:04:52 2009
@@ -1,11 +1,12 @@
# -*- mode: Perl -*-
-#
+
# PDF::Create::Page - PDF pages tree
# Author: Fabien Tassin <fta at sofaraway.org>
+# Version: 0.06
# Copyright 1999-2001 Fabien Tassin <fta at sofaraway.org>
-# Copyright 2007-2008 Markus Baertschi
-# Copyright 2008 Slaven Rezic
-
+
+# bugs :
+# - ...
# 31.05.2008 1.00 Markus Baertschi
# - Changed version to 1.00 to go with PDF::Create
@@ -17,11 +18,10 @@
use Carp;
use FileHandle;
use Data::Dumper;
-use constant PI => 3.141592653;
@ISA = qw(Exporter);
@EXPORT = qw();
-$VERSION = 1.02;
+$VERSION = 1.00;
$DEBUG = 0;
my $font_widths = &init_widths;
@@ -311,56 +311,6 @@
}
$w / 1000;
}
-
-# Additional methods by Slaven
-# set_stroke_color
-# set_fill_color
-# set_line_width
-# circle
-sub set_stroke_color {
- my($self, $r, $g, $b) = @_;
- return if (defined $self->{'current_stroke_color'} &&
- $self->{'current_stroke_color'} eq join(",", $r, $g, $b));
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$r $g $b RG");
- $self->{'current_stroke_color'} = join(",", $r, $g, $b);
-}
-
-sub set_fill_color {
- my($self, $r, $g, $b) = @_;
- return if (defined $self->{'current_fill_color'} &&
- $self->{'current_fill_color'} eq join(",", $r, $g, $b));
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$r $g $b rg");
- $self->{'current_fill_color'} = join(",", $r, $g, $b);
-}
-
-sub set_line_width {
- my($self, $w) = @_;
- return if (defined $self->{'current_line_width'} &&
- $self->{'current_line_width'} == $w);
- $self->{'pdf'}->page_stream($self);
- $self->{'pdf'}->add("$w w");
- $self->{'current_line_width'} = $w;
-}
-
-sub circle {
- my($self, $x, $y, $r) = @_;
-
- my @coords;
- for(my $i = 0; $i < PI*2; $i+=PI*2/$r/2) {
- my($xi,$yi) = map { $_*$r } (sin $i, cos $i);
- push @coords, $x+$xi, $y+$yi;
- }
- push @coords, @coords[0,1];
- @coords = map { sprintf "%.2f", $_ } @coords;
-
- $self->moveto(shift @coords, shift @coords);
- for(my $i = 0; $i <= $#coords; $i+=2) {
- $self->lineto($coords[$i], $coords[$i+1]);
- }
-}
-#
sub printnl {
my $self = shift;
Modified: trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm?rev=35544&op=diff
==============================================================================
--- trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm (original)
+++ trunk/libpdf-create-perl/lib/PDF/Image/GIF.pm Sun May 17 04:04:52 2009
@@ -21,7 +21,7 @@
@ISA = qw(Exporter);
@EXPORT = qw();
-$VERSION = 1.02;
+$VERSION = 1.00;
$DEBUG = 0;
sub new {
More information about the Pkg-perl-cvs-commits
mailing list