You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
650 B
35 lines
650 B
/*
|
|
* This file is maintained by a user: if you have any questions about it,
|
|
* please contact Mark Hale (mark.hale@physics.org).
|
|
*/
|
|
|
|
/* "Distill" PostScript. */
|
|
|
|
parse arg params
|
|
|
|
gs='@gsos2'
|
|
|
|
if params='' then call usage
|
|
|
|
options='-P- -dSAFER -dNOPAUSE -dBATCH'
|
|
|
|
/* extract options from command line */
|
|
i=1
|
|
param=word(params,i)
|
|
do while substr(param,1,1)='-'
|
|
options=options param
|
|
i=i+1
|
|
param=word(params,i)
|
|
end
|
|
|
|
infile=param
|
|
if infile='' then call usage
|
|
outfile=word(params,i+1)
|
|
if outfile='' then call usage
|
|
|
|
gs '-q -sDEVICE=ps2write -sOutputFile='outfile options infile
|
|
exit
|
|
|
|
usage:
|
|
say 'Usage: ps2ps ...switches... input.ps output.ps'
|
|
exit
|