1*593dc095SDavid du Colombier/* $Id: eps2eps.cmd,v 1.4 2002/02/21 21:49:28 giles Exp $ */ 23ff48bf5SDavid du Colombier/* 33ff48bf5SDavid du Colombier * This file is maintained by a user: if you have any questions about it, 43ff48bf5SDavid du Colombier * please contact Mark Hale (mark.hale@physics.org). 53ff48bf5SDavid du Colombier */ 63ff48bf5SDavid du Colombier 73ff48bf5SDavid du Colombier/* "Distill" Encapsulated PostScript. */ 83ff48bf5SDavid du Colombier 93ff48bf5SDavid du Colombierparse arg params 103ff48bf5SDavid du Colombier 113ff48bf5SDavid du Colombiergs='@gsos2' 123ff48bf5SDavid du Colombier 133ff48bf5SDavid du Colombierif params='' then call usage 143ff48bf5SDavid du Colombier 153ff48bf5SDavid du Colombieroptions='-dNOPAUSE -dBATCH -dSAFER' 163ff48bf5SDavid du Colombier 173ff48bf5SDavid du Colombier/* extract options from command line */ 183ff48bf5SDavid du Colombieri=1 193ff48bf5SDavid du Colombierparam=word(params,i) 203ff48bf5SDavid du Colombierdo while substr(param,1,1)='-' 213ff48bf5SDavid du Colombier options=options param 223ff48bf5SDavid du Colombier i=i+1 233ff48bf5SDavid du Colombier param=word(params,i) 243ff48bf5SDavid du Colombierend 253ff48bf5SDavid du Colombier 263ff48bf5SDavid du Colombierinfile=param 273ff48bf5SDavid du Colombierif infile='' then call usage 283ff48bf5SDavid du Colombieroutfile=word(params,i+1) 293ff48bf5SDavid du Colombierif outfile='' then call usage 303ff48bf5SDavid du Colombier 313ff48bf5SDavid du Colombiergs '-q -sDEVICE=epswrite -sOutputFile='outfile options infile 323ff48bf5SDavid du Colombierexit 333ff48bf5SDavid du Colombier 343ff48bf5SDavid du Colombierusage: 353ff48bf5SDavid du Colombiersay 'Usage: eps2eps ...switches... input.eps output.eps' 363ff48bf5SDavid du Colombierexit 37