Mathematica 9 is now available
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: [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"];


  • Prev by Date: Re: Data handling in mathematica 2.2 and 3.0
  • Next by Date: Mathematica & MIDI/Macintosh
  • Previous by thread: Does anyone have a notebook they've set up for College Algebra ?
  • Next by thread: Re: Re EPS files produced by Mathematica 3.0