Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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"];


  • Prev by Date: Memory saving mode of mathematica front end?
  • Next by Date: Multiple sums.
  • Previous by thread: Re: Re EPS files produced by Mathematica 3.0
  • Next by thread: Mathematica & MIDI/Macintosh