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