summaryrefslogtreecommitdiffstats
path: root/pdftool.pl
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@chalmers.se>2011-05-08 00:05:47 +0200
committerGuilhem Moulin <guilhem.moulin@chalmers.se>2011-05-08 00:05:47 +0200
commitafb0888a13da8a67e0c659130fe9c525105d96dc (patch)
treeed6f4cbc3343df2d325f4ccc5700ea4ad109190e /pdftool.pl
parenta5204c902d8a6983bea4a879fc36293819acebeb (diff)
tumble
Diffstat (limited to 'pdftool.pl')
-rwxr-xr-xpdftool.pl70
1 files changed, 52 insertions, 18 deletions
diff --git a/pdftool.pl b/pdftool.pl
index 8d6f577..8320747 100755
--- a/pdftool.pl
+++ b/pdftool.pl
@@ -18,7 +18,7 @@ pdftool.pl - a PDF swiss army knife
B<pdftool.pl> [-s I<pages>] [-w I<width> ] [-h I<heigth>] [-p I<paper>]
[-W I<width>] [-H I<heigth>] [-P I<paper>] [-p I<paper>] [-m I<margin>]
-[-b I<border>] [-c] [--book] [--column] [-n I<nup>] [-q]
+[-b I<border>] [-c] [--book] [--column] [-n I<nup>] [-t] [-q]
[I<infile> [I<outfile>]]
=head1 DESCRIPTION
@@ -139,6 +139,13 @@ B<-b>), see B<-m> for details.
If I<nup> is less than 10, the option B<->I<nup> may be used as an
alternative.
+=item B<-t, --tumble>
+
+By default, B<PDFTool> ensures that your pdf will be printable using the
+DuplexNoTumble mode, hence even pages of landscape files are rotated by
+180°. This option removes this behavior; also, landscape files are rotated
+in order to make it easy to read on the computer.
+
=item B<--column>
Changes the order to `column-major', where successive pages are placed in
@@ -205,6 +212,8 @@ my $nup = 1;
my $column;
my $quiet;
my $man;
+my $tumble;
+my $landscape;
GetOptions( "select|s=s" => \$select,
"w|width=s" => \$outwidth,
@@ -218,6 +227,7 @@ GetOptions( "select|s=s" => \$select,
"crop|c" => \$crop,
"book" => \$book,
"nup|n=i" => \$nup,
+ "t|tumble" => \$tumble,
"1" => sub { $nup = 1 },
"2" => sub { $nup = 2 },
"3" => sub { $nup = 3 },
@@ -387,7 +397,6 @@ if ($filetype eq "PDF") {
$r .= $rmin if defined $rmin;
$r .= "-";
$r .= $rmax if defined $rmax;
- print "$r\n";
push @newselect, $r;
}
@@ -541,19 +550,33 @@ if (defined $book) {
#
# PSNup
#
-($outheight, $outwidth) = ($outwidth, $outheight)
- if (($bbox[2]-$bbox[0] > $bbox[3]-$bbox[1])
- xor ($outwidth-2*$margin > $outheight-2*$margin));
+if ((($bbox[2]-$bbox[0] > $bbox[3]-$bbox[1])
+ and not ($outwidth-2*$margin > $outheight-2*$margin))
+ or
+ (defined $tumble
+ and not ($bbox[2]-$bbox[0] > $bbox[3]-$bbox[1])
+ and ($outwidth-2*$margin > $outheight-2*$margin))) {
+ ($outheight, $outwidth) = ($outwidth, $outheight);
+ $landscape = 1;
+}
my ($horiz, $vert, $rotate, $scale, $hshift, $vshift)
= &calc_layout ($nup, $border, \@bbox,
$outwidth-2*$margin, $outheight-2*$margin);
-my @specs = &calc_specs ($horiz, $vert, $rotate, $scale,
- [$outwidth-2*$margin, $outheight-2*$margin,
- $hshift, $vshift]);
+my ($ospecs,$especs) = &calc_specs ($horiz, $vert, $rotate, $scale,
+ [$outwidth-2*$margin, $outheight-2*$margin,
+ $hshift, $vshift]);
+my $land = ($outwidth > $outheight);
+$land = not $land if ($rotate%2);
+
+my $pagespecs;
+if (defined $tumble || not $land) {
+ $pagespecs = "$nup:" . join ('+', @$ospecs);
+} else {
+ $pagespecs = 2*$nup . ':' . join ('+', @$ospecs) . ',' . join ('+', @$especs);
+}
-my $pagespecs = "$nup:" . join ('+', @specs);
@cmd = ('pstops', '-w', $bbox[2], '-h', $bbox[3], $pagespecs);
push @cmd, '-q' if defined $quiet;
my $pid = open3 "<&IN", *OUT, ">&LOG", @cmd;
@@ -561,13 +584,20 @@ open *IN, "<&OUT" or die "Can't dup: $!";
push @pids, [$pid, @cmd];
-
#
# Final file: Convert back to PDF
#
+my $pagedevice;
+if (defined $tumble || $land || $landscape) {
+ $rotate = ($rotate+1)%4 if not (defined $tumble) and $land;
+ $pagedevice = "/Orientation $rotate /PageSize [$outwidth $outheight]";
+} else {
+ $pagedevice = "/PageSize [$outwidth $outheight]";
+}
+
@cmd = ('gs', "-sDEVICE=pdfwrite", "-sOutputFile=%stdout%", "-dBATCH",
"-dNOPAUSE", "-dAutoRotatePages=/None",
- "-c", "<< /Orientation $rotate /PageSize [$outwidth $outheight] >> setpagedevice",
+ "-c", "<< $pagedevice >> setpagedevice",
"-f", "-");
$pid = open3 "<&IN", ">&FOUT", ">&LOG", @cmd;
push @pids, [$pid, @cmd];
@@ -662,11 +692,13 @@ sub calc_specs {
my ($horiz, $vert, $rotate, $scale, $bbox) = @_;
my ($outwidth, $outheight, $hshift, $vshift) = @$bbox;
- my @specs;
+ my $n = $horiz * $vert;
+
+ my (@ospecs, @especs); # specs for odd and even pages
- for (my $pageno = 0; $pageno < $horiz*$vert; $pageno++) {
+ for (my $pageno = 0; $pageno < $n; $pageno++) {
my ($up, $across); # pageno index
- my $rot = "";
+ my ($orot,$erot) = ('','U');
my ($xoff, $yoff);
@@ -680,7 +712,7 @@ sub calc_specs {
$across = floor($pageno / $vert);
$up = $pageno % $vert;
}
- $rot = 'L';
+ ($orot,$erot) = ('L','R');
$xoff = $margin + ($across+1)*$outwidth/$horiz - $hshift;
} else {
if (defined $column) {
@@ -696,10 +728,12 @@ sub calc_specs {
}
$yoff = $margin + $up*$outheight/$vert + $vshift;
- push @specs, sprintf ("%d%s@%.3f(%.3f,%.3f)",
- $pageno, $rot, $scale, $xoff, $yoff);
+ push @ospecs, sprintf ("%d%s@%.3f(%.3f,%.3f)",
+ $pageno, $orot, $scale, $xoff, $yoff);
+ push @especs, sprintf ("%d%s@%.3f(%.3f,%.3f)",
+ $n + $pageno, $erot, $scale, $outwidth-$xoff, $outheight-$yoff);
}
- return @specs;
+ return (\@ospecs,\@especs);
}