Re: Re EPS files produced by Mathematica 3.0

*To*: mathgroup at smc.vnet.net*Subject*: [mg5729] Re: Re EPS files produced by Mathematica 3.0*From*: fast at magellan.Colorado.EDU (Bruce Alan Fast)*Date*: Sat, 11 Jan 1997 14:29:17 -0500*Organization*: University of Colorado at Boulder*Sender*: owner-wri-mathgroup at wolfram.com

> >When I use the edit menu feature "Save selection as..." > >and select EPS, I get an EPS file that previews just fine in > >Mathematica, but will not print properly when embedded (using > >epsf.def and \epsfbox{}...}) in a Textures document. The graphics > >do not show up at all. They won't preview in Illustator or > >Transverter Pro, either. Saving several graphics this way, I have found the same tiny error on the very same line each time. The EPS file is a text file, and on line 1149 of that file, near the end of the lengthy header of PostScript definitions, the 2nd number is missing a negative sign. For instance, these are lines 1148-1152 of one of my EPS files created by using "Edit: Save selection as... EPS" from the menu; 1.000000 1.000000 scale % line 1148 0.000000 329.250000 translate % line 1149 1.000000 -1.000000 scale % line 1150 -0.000000 -0.000000 translate % line 1151 /Mleft 0.000000 def % line 1152 The file is fixed if the "329.250000" is edited to be "-329.250000". -------------------------------------------------------------- By the way, you can get an error-free EPS file of a graphic, about the same size file as using the menu choice above but in simpler PostScript, by using the Display command, e.g., gr = Plot3D[ Sin[x]Cos[y], {x,-3,3}, {y,-3,3}]; Display["filename.eps", gr, "EPS"];