Re: Re EPS files produced by Mathematica 3.0
- To: mathgroup at smc.vnet.net
- Subject: [mg5760] Re: Re EPS files produced by Mathematica 3.0
- From: Bruce Fast <Bruce.Fast at Colorado.EDU>
- Date: Tue, 14 Jan 1997 10:42:34 -0500
- Organization: University of Colorado, CNS
- 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"];