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" PostScript. */ 7 8parse arg params 9 10gs='@gsos2' 11 12if params='' then call usage 13 14options='-P- -dSAFER -dNOPAUSE -dBATCH' 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=ps2write -sOutputFile='outfile options infile 31exit 32 33usage: 34say 'Usage: ps2ps ...switches... input.ps output.ps' 35exit 36