From 3bd2675d5b9244ab9d236aaa0e9aaf980f9d1aaf Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Sat, 25 Sep 2010 21:01:41 +0200 Subject: (Useless) command printer --- pscrop.pl | 227 -------------------------------------------------------------- 1 file changed, 227 deletions(-) delete mode 100755 pscrop.pl diff --git a/pscrop.pl b/pscrop.pl deleted file mode 100755 index 37b3613..0000000 --- a/pscrop.pl +++ /dev/null @@ -1,227 +0,0 @@ -#!/usr/bin/perl -w - -=head1 SYNOPSIS - -psnup2.pl - a better psnup - -For details, see http://consodoc.com/psnup2/ - -=head1 USAGE - -psnup2.pl -d -m -w -h - -l -s -r -D - SOURCE [DEST] - --d If specified, only prints out the command. --m Margin, in centimeters, that should be kept around the page. Default to 1. --w Resulting page width, in centimeters. Default to 21. --h Resulting page height, in centimeters. Default to 29.7. --l Number of pages to fit on the long edge. Default to 2. --s Number of pages to fit on the short edge. Default to 1. --r If specified, the order is reversed on the long edge. --D Rotation direction, if needed ("L" or "R"). Default to "L". - -=head1 REQUIRE - -Requires psutils installed and available in the command line -http://www.tardis.ed.ac.uk/~ajcd/psutils/ - -=head1 AUTHOR - -Public domain, (c) Oleg Parashchenko, Lionel Guy - -=head1 VERSION - -Version: 0.0.5, 23 October 2008 - -=cut - -use Getopt::Long; -use IPC::Open2; -use IPC::Open3; -use POSIX qw(floor); -use warnings; -use strict; - -# TODO: units -# TODO: "-m h1cm:v3cm": horizontal, vertical -my $opt_m = '1'; # in centimeters - -my $papersize = 'a4'; - -my ($opt_w, $opt_h) = (21.0, 29.7); # in centimeters, A4 - -my $units_per_cm = 72 * .3937; # 1 centimeters = .393700787 inches, 1 inch = 72 PostScript units5 - -die "Too many arguments" if $#ARGV > 1; - -my ($infile, $outfile) = @ARGV; - - -if (defined $infile && $infile ne "-") { - open *FIN, '<', "$infile" or die "Can't read `$infile': $!"; - -} else { - *FIN = *STDIN; -} - -if (defined $outfile && $outfile ne "-") { - open *FOUT, '>', "$outfile" or die "Can't create `$outfile': $!"; -} else { - *FOUT = *STDOUT; -} - - - -# -# Calculate the maximal bounding box -# - -my $pid; - -# need to duplicate FIN, since it will be closed in the parent process -open *KIDFIN, "<&FIN" or die "Can't dup FIN: $!"; - -$pid = open3 "<&KIDFIN", ">&FINGS", *FINGS, - 'gs', '-sDEVICE=bbox', '-dBATCH', '-dNOPAUSE', '-' - or die "Can't run: `gs -sDEVICE=bbox -dBATCH -dNOPAUSE -'"; -my $n = 0; -my ($x0, $y0, $x1, $y1) = (1<<16, 1<<16, -(1<<16), -(1<<16)); -while () { - if ($_ =~ m/^\%\%BoundingBox: (\d+) (\d+) (\d+) (\d+)/) { - $x0 = $1 if $1 < $x0; - $y0 = $2 if $2 < $y0; - $x1 = $3 if $3 > $x1; - $y1 = $4 if $4 > $y1; - print STDERR "[", ++$n, "] "; - } -} -close FINGS; -print STDERR "\n"; - -# No zombie processes -waitpid $pid, 0; - -die "Error when calculating bounding box" if ($x0 >= $x1 || $y0 >= $y1); -my @bbox = ($x0, $y0, $x1, $y1); - - -# Let's go back to the beginning of the input -seek FIN, 0, 0 or die "$!"; - - - -# -# Calculate pstops specification -# -# (rounded) width, height, and margin -my ($w, $h, $margin) = map { &round ($_ * $units_per_cm) } - ($opt_w, $opt_h, $opt_m); - -($x0,$x1) = &calculate_coordinates($w, $margin); -($y0,$y1) = &calculate_coordinates($h, $margin); - -my $spec = 0 . &calc_pstops_page(@bbox, $x0, $y0, $x1, $y1); - - - -# -# Run the program and filter the output -# - -$pid = open2 *FINPS2PS, "<&FIN", 'pstops', "-w$w", "-h$h", "$spec" - or die "Can't run `pstops -w$w -h$h $spec': $!\n"; -my $l; -# Header and comments -while (defined ($l = ) && $l ne "\%\%EndComments\n") { - # Optional, but nice: tune how "gv" will show the document - next if $l =~ m/^\%\%DocumentMedia:/; - - if ($l =~ m/^\%\%BoundingBox:/) { - print FOUT "\%\%BoundingBox: 0 0 $w $h\n" or die "Can't print: $!"; - next; - } - print FOUT $l or die "Can't print: $!"; -} - -# Important to print the document right -# TODO: die "Can't print: $!" -print FOUT << "EOF"; -\%\%EndComments -\%\%BeginFeature: *PageSize ($w $h) -<< /PageSize [$w $h] >> setpagedevice -\%\%EndFeature -EOF - - -# Body -while () { - print FOUT $_ or die "Can't print: $!"; - - # PStoPSclip hack: increase clipping box by 10 - if ($_ =~ m/^userdict\/PStoPSclip{0 0 moveto$/) { - $l = ; - $l =~ s/\./0./g; - print FOUT $l or die "Can't print: $!"; - } -} - -close FIN; -close FOUT; - -# No zombie processes -waitpid $pid, 0; - - - -# ========================================================= - -# -# Calculate an item of the pstops specification -# -sub calc_pstops_page { - my ($fx0, $fy0, $fx1, $fy1, - $tx0, $ty0, $tx1, $ty1) = @_; - - # From and to width / height - my ($wf, $hf) = ($fx1 - $fx0, $fy1 - $fy0); - my ($wt, $ht) = ($tx1 - $tx0, $ty1 - $ty0); - - # Scale factor width / height - my ($sw, $sh) = ($wt / $wf, $ht / $hf); - - # We take the smallest scale - my $scale = ($sw > $sh) ? $sh : $sw; - - # Calculate the centers of the boxes - my ($cxf, $cyf) = ( .5 * ($fx0 + $fx1), .5 * ($fy0 + $fy1) ); - my ($cxt, $cyt) = ( .5 * ($tx0 + $tx1), .5 * ($ty0 + $ty1) ); - - # Fist, pstops scales, then moves - - my ($movex, $movey) = ($cxt - $cxf * $scale, $cyt - $cyf * $scale); - - # Generate the summary - return sprintf( '@%.3f(%.3f,%.3f)', $scale, $movex, $movey); -} - -# ========================================================= - -# -# Calculate coordinates of splitting the dimension on K chunks -# Returns an array, each item is a reference to an array of two -# elements: the begin and end coordinates -# -sub calculate_coordinates { - my ($length, $margin) = @_; - my $skip = $length - $margin; - my $width = $skip - $margin; - my @coords = ( &round( &round($skip) - $width ), &round($skip) ); - return @coords; -} - -# Round a float number -sub round { - return floor ($_[0] + .5); -} - -- cgit v1.2.3