Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Cropping a postscript file

by Anonymous Monk
on May 28, 2008 at 15:56 UTC ( #688882=note: print w/ replies, xml ) Need Help??


in reply to Cropping a postscript file

This seems to work even without the structuring comments (%%EndSetup, %%Page). The following worked for me:

#!/usr/bin/perl $usage="Usage: $0 x1 y1 x2 y2 file.ps"; $x1=shift @ARGV; $y1=shift @ARGV; $x2=shift @ARGV; $y2=shift @ARGV; ($x1 && $y2 && $x2 && $y2 ) or die "$usage\n"; $w=$x2-$x1; $h=$y2-$y1; $flag=0; while (<>) { if (/^%%BoundingBox:/) { print "%%BoundingBox: 0 0 $w $h\n"; print "-$x1 -$y1 translate\n"; print "$x1 $y1 moveto $x1 $y2 lineto $x2 $y2 lineto $x2 $y1 li +neto closepath\n"; print "clip\n"; $flag=1; } else { print; } }


Comment on Re: Cropping a postscript file
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://688882]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (15)
As of 2014-08-27 22:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (253 votes), past polls