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