MathGroup Archive 2003

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

Search the Archive

Re: Plots -> EPS -> Corel Draw

  • To: mathgroup at smc.vnet.net
  • Subject: [mg43670] Re: Plots -> EPS -> Corel Draw
  • From: "Steve Luttrell" <luttrell at _removemefirst_westmal.demon.co.uk>
  • Date: Sun, 28 Sep 2003 06:00:54 -0400 (EDT)
  • References: <bl3jup$en9$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I transfer graphics from Mathematica (I use version 5) to CorelDraw (I use
version 7) as follows:
1. Select the graphic in Mathematica.
2. Copy to the clipboard using Edit | Copy As... | Metafile.
3. Paste into CorelDraw as a new document.

The metafile format preserves everything during the copying. I always try to
leave conversion to a bitmap until the last possible moment because it is an
irreversible operation. I presume your approach of saving an EPS file aims
to achieve the same information-preserving effect.

--
Steve Luttrell
West Malvern, UK

"Thomas Manz" <thomasmanz at web.de> wrote in message
news:bl3jup$en9$1 at smc.vnet.net...
> Hello!
>
> The best method to get Mathematica plots in Corel Draw seems to be the
> eps-format. But when plotting dashed curves Corel has problems because
> one curve is often imported as several lines and so the dashing can be
> very unregularly.
>
> sinus = Plot[Sin[x], {x, 0, Pi}, PlotStyle -> Dashing[{0.070, 0.038}]]
> Export["D:\\sinus.eps", sinus, "EPS"]
>
> Importing this in Corel produces an error in the dashing at x=2.6.
> The reason for this seems to be a postscript-macro called "Mistroke"
> which cuts the curve in two parts.
>
> What does this macro do and do I need it?
> Does  a "Mathematica solution" exist or must I remove the "Mistroke"
> with a script?
>
> I added the definition of this macro but for me this is too much
> postscript!
>
> /Mistroke {
> flattenpath
> 0 0 0
> {
> 4 2 roll
> pop pop
> }
> {
> 4 -1 roll
> 2 index
> sub dup mul
> 4 -1 roll
> 2 index
> sub dup mul
> add sqrt
> 4 -1 roll
> add
> 3 1 roll
> }
> {
> stop
> }
> {
> stop
> }
> pathforall
> pop pop
> currentpoint
> stroke
> moveto
> currentdash
> 3 -1 roll
> add
> setdash
> } bind def
>
> Thanks for your help!
>
> Best regards
> Thomas Manz
>



  • Prev by Date: Re: Plots -> EPS -> Corel Draw
  • Next by Date: Re: Fourier Help
  • Previous by thread: Re: Plots -> EPS -> Corel Draw
  • Next by thread: Fourier Help