[OS X TeX] trim pdf figures
Edward Thome
ed.thome at murraystate.edu
Wed Jun 23 23:28:52 CEST 2004
I did not mean to imply that it was my script, but that it was one I
used and was written by Dr. A. J. Carr. I also use the following
script sometimes (by Heiko Oberdiek):
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec
perl -S $0 $argv:q'
if 0;
use strict;
$^W=1; # turn warning on
#
# pdfcrop.pl
#
# Copyright (C) 2002 Heiko Oberdiek.
#
# This program may be distributed and/or modified under the
# conditions of the LaTeX Project Public License, either version 1.2
# of this license or (at your option) any later version.
# The latest version of this license is in
# http://www.latex-project.org/lppl.txt
# and version 1.2 or later is part of all distributions of LaTeX
# version 1999/12/01 or later.
#
# See file "readme.txt" for a list of files that belong to this project.
#
# This file "pdfcrop.pl" may be renamed to "pdfcrop"
# for installation purposes.
#
my $file = "pdfcrop.pl";
my $program = uc($&) if $file =~ /^\w+/;
my $version = "1.2";
my $date = "2002/11/04";
my $author = "Heiko Oberdiek";
my $copyright = "Copyright (c) 2002 by $author.";
#
# Reqirements: Perl5, Ghostscript
# History:
# 2002/10/30 v1.0: First release.
# 2002/10/30 v1.1: Option --hires added.
# 2002/11/04 v1.2: "nul" instead of "/dev/null" for windows.
#
### program identification
my $title = "$program $version, $date - $copyright\n";
### error strings
my $Error = "!!! Error:"; # error prefix
### string constants for Ghostscript run
# get Ghostscript command name
my $GS = "gs";
$GS = "gs386" if $^O =~ /dos/i;
$GS = "gsos2" if $^O =~ /os2/i;
$GS = "gswin32c" if $^O =~ /mswin32/i;
$GS = "gswin32c" if $^O =~ /cygwin/i;
# Windows detection (no SIGHUP)
my $Win = 0;
$Win = 1 if $^O =~ /mswin32/i;
$Win = 1 if $^O =~ /cygwin/i;
# "null" device
my $null = "/dev/null";
$null = "nul" if $Win;
### variables
my $inputfile = "";
my $outputfile = "";
my $tmp = "tmp-\L$program\E-$$";
### option variables
my @bool = ("false", "true");
$::opt_help = 0;
$::opt_debug = 0;
$::opt_verbose = 0;
$::opt_gscmd = $GS;
$::opt_pdftexcmd = "pdftex";
$::opt_margins = "0 0 0 0";
$::opt_clip = 0;
$::opt_hires = 0;
my $usage = <<"END_OF_USAGE";
${title}Syntax: \L$program\E [options] <input[.pdf]> [output file]
Function: Margins are calculated and removed for each page in the file.
Options: (defaults:)
--help print usage
--(no)verbose verbose printing
($bool[$::opt_verbose])
--(no)debug debug informations
($bool[$::opt_debug])
--gscmd <name> call of ghostscript
($::opt_gscmd)
--pdftexcmd <name> call of pdfTeX
($::opt_pdftexcmd)
--margins "<left> <top> <right> <bottom>"
($::opt_margins)
add extra margins, unit is bp. If only one number
is
given, then it is used for all margins, in the
case
of two numbers they are also used for right and
bottom.
--(no)clip clipping support, if margins are set
($bool[$::opt_clip])
--(no)hires using `%%HiResBoundingBox'
($bool[$::opt_hires])
instead of `%%BoundingBox'
Examples:
$0 --margins 10 input.pdf output.pdf
$0 --margins '5 10 5 20' --clip input.pdf output.pdf
END_OF_USAGE
### process options
my @OrgArgv = @ARGV;
use Getopt::Long;
GetOptions(
"help!",
"debug!",
"verbose!",
"gscmd=s",
"pdftexcmd=s",
"margins=s",
"clip!",
"hires!",
) or die $usage;
!$::opt_help or die $usage;
$::opt_verbose = 1 if $::opt_debug;
@ARGV >= 1 or die $usage;
print $title;
@ARGV <= 2 or die "$Error Too many files!\n";
### input file
$inputfile = shift @ARGV;
if (! -f $inputfile) {
if (-f "$inputfile.pdf") {
$inputfile .= ".pdf";
}
else {
die "$Error Input file `$inputfile' not found!\n";
}
}
print "* Input file: $inputfile\n" if $::opt_debug;
### output file
if (@ARGV) {
$outputfile = shift @ARGV;
}
else {
$outputfile = $inputfile;
$outputfile =~ s/\.pdf$//i;
$outputfile .= "-crop.pdf";
}
print "* Output file: $outputfile\n" if $::opt_debug;
### margins
my ($llx, $lly, $urx, $ury) = (0, 0, 0, 0);
if ($::opt_margins =~
/^\s*([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s+([\-\.\d]+)\s*$/) {
($llx, $lly, $urx, $ury) = ($1, $2, $3, $4);
}
else {
if ($::opt_margins =~ /^\s*([\-\.\d]+)\s+([\-\.\d]+)\s*$/) {
($llx, $lly, $urx, $ury) = ($1, $2, $1, $2);
}
else {
if ($::opt_margins =~ /^\s*([\-\.\d]+)\s*$/) {
($llx, $lly, $urx, $ury) = ($1, $1, $1, $1);
}
else {
die "$Error Parse error (option --margins)!\n";
}
}
}
print "* Margins: $llx $lly $urx $ury\n" if $::opt_debug;
### cleanup system
my @unlink_files = ();
my $exit_code = 1;
sub clean {
print "* Cleanup\n" if $::opt_debug;
if ($::opt_debug) {
print "* Temporary files: @unlink_files\n";
}
else {
for (; @unlink_files>0; ) {
unlink shift @unlink_files;
}
}
}
sub cleanup {
clean();
exit($exit_code);
}
$SIG{'INT'} = \&cleanup;
$SIG{'__DIE__'} = \&clean;
### Calculation of BoundingBoxes
my $cmd = "$::opt_gscmd -sDEVICE=bbox -dBATCH -dNOPAUSE " .
"-sPAPERSIZE=a3 -c save pop -f " .
$inputfile;
my $cmdpipe = $cmd . " 2>&1 1>$null |";
my $tmpfile = "$tmp.tex";
push @unlink_files, $tmpfile;
open(TMP, ">$tmpfile") or
die "$Error Cannot write tmp file `$tmpfile'!\n";
print TMP "\\def\\pdffile{$inputfile}\n";
print TMP <<'END_TMP_HEAD';
\def\page #1 [#2 #3 #4 #5]{%
\count0=#1\relax
\setbox0=\hbox{%
\pdfximage page #1{\pdffile}%
\pdfrefximage\pdflastximage
}%
\pdfhorigin=-#2bp\relax
\pdfvorigin=#3bp\relax
\pdfpagewidth=#4bp\relax
\advance\pdfpagewidth by -#2bp\relax
\pdfpageheight=#5bp\relax
\advance\pdfpageheight by -#3bp\relax
\ht0=\pdfpageheight
\shipout\box0\relax
}
\def\pageclip #1 [#2 #3 #4 #5][#6 #7 #8 #9]{%
\count0=#1\relax
\dimen0=#4bp\relax \advance\dimen0 by -#2bp\relax
\edef\imagewidth{\the\dimen0}%
\dimen0=#5bp\relax \advance\dimen0 by -#3bp\relax
\edef\imageheight{\the\dimen0}%
\pdfximage page #1{\pdffile}%
\setbox0=\hbox{%
\kern -#2bp\relax
\lower #3bp\hbox{\pdfrefximage\pdflastximage}%
}%
\wd0=\imagewidth\relax
\ht0=\imageheight\relax
\dp0=0pt\relax
\pdfhorigin=#6pt\relax
\pdfvorigin=#7bp\relax
\pdfpagewidth=\imagewidth
\advance\pdfpagewidth by #6bp\relax
\advance\pdfpagewidth by #8bp\relax
\pdfpageheight=\imageheight\relax
\advance\pdfpageheight by #7bp\relax
\advance\pdfpageheight by #9bp\relax
\pdfxform0\relax
\shipout\hbox{\pdfrefxform\pdflastxform}%
}%
END_TMP_HEAD
print "* Running ghostscript for BoundingBox calculation ...\n"
if $::opt_verbose;
print "* Ghostscript pipe: $cmdpipe\n" if $::opt_debug;
my $page = 0;
open(CMD, $cmdpipe) or
die "$Error Cannot call ghostscript!\n";
while (<CMD>) {
my $bb = ($::opt_hires) ? "%%HiResBoundingBox" : "%%BoundingBox";
next unless
/^$bb:\s*([\.\d]+) ([\.\d]+) ([\.\d]+) ([\.\d]+)/o;
$page++;
print "* Page $page: $1 $2 $3 $4\n" if $::opt_verbose;
if ($::opt_clip) {
print TMP "\\pageclip $page [$1 $2 $3 $4][$llx $lly $urx
$ury]\n";
}
else {
my ($a, $b, $c, $d) = ($1 - $llx, $2 - $ury, $3 + $urx, $4 +
$lly);
print TMP "\\page $page [$a $b $c $d]\n";
}
}
close(CMD);
print TMP "\\csname \@\@end\\endcsname\n\\end\n";
close(TMP);
### Run pdfTeX
push @unlink_files, "$tmp.log";
if ($::opt_verbose) {
$cmd = "$::opt_pdftexcmd -interaction=nonstopmode $tmp";
}
else {
$cmd = "$::opt_pdftexcmd -interaction=batchmode $tmp";
}
print "* Running pdfTeX ...\n" if $::opt_verbose;
print "* pdfTeX call: $cmd\n" if $::opt_debug;
if ($::opt_verbose) {
system($cmd);
}
else {
`$cmd`;
}
if ($?) {
die "$Error pdfTeX run failed!\n";
}
### Move temp file to output
rename "$tmp.pdf", $outputfile or
die "$Error Cannot move `$tmp.pdf' to `$outputfile'!\n";
print "==> $page pages written on `$outputfile'.\n";
$exit_code = 0;
cleanup();
__END__
On Jun 22, 2004, at 11:53 AM, Alan Curtis wrote:
>
> Ed
>
> Isn't there problem with your script in that you get bitmapped fonts?
>
> I had come across two other potential solutions, although I tend to
> use 'save as eps and drop it on TeXShop'.
>
> 1. http://www.cds.caltech.edu/~ross/Adobe/AdobeBugs.pdf suggest putting
>
> \expandafter\ifx\csname pdfoptionalwaysusepdfpagebox\endcsname\relax
> \pdfoptionalwaysusepdfpagebox 5 %
> \fi
>
> in your preamble, but it didn't work for me.
>
> 2. A perl script from Hans Hagen at www.pragma-ade.com, which I can no
> longer find, which changed /ArtBox to /MediaBox in the text of the pdf
> file.
>
> Alan
I
-----------------------------------------------------
Post: <mailto:MacOSX-TeX at email.esm.psu.edu>
Please see <http://www.esm.psu.edu/mac-tex/> for list
guidelines, information, and LaTeX/TeX resources.
More information about the macostex-archives
mailing list