Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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"; $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?

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2015-11-29 19:29 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (752 votes), past polls