1/* $Id: eps2eps.cmd,v 1.4 2002/02/21 21:49:28 giles Exp $ */ 2/* 3 * This file is maintained by a user: if you have any questions about it, 4 * please contact Mark Hale (mark.hale@physics.org). 5 */ 6 7/* "Distill" Encapsulated PostScript. */ 8 9parse arg params 10 11gs='@gsos2' 12 13if params='' then call usage 14 15options='-dNOPAUSE -dBATCH -dSAFER' 16 17/* extract options from command line */ 18i=1 19param=word(params,i) 20do while substr(param,1,1)='-' 21 options=options param 22 i=i+1 23 param=word(params,i) 24end 25 26infile=param 27if infile='' then call usage 28outfile=word(params,i+1) 29if outfile='' then call usage 30 31gs '-q -sDEVICE=epswrite -sOutputFile='outfile options infile 32exit 33 34usage: 35say 'Usage: eps2eps ...switches... input.eps output.eps' 36exit 37