Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: Inset problems & Export

  • To: mathgroup at smc.vnet.net
  • Subject: [mg84114] Re: Inset problems & Export
  • From: ragfield <ragfield at gmail.com>
  • Date: Mon, 10 Dec 2007 20:40:32 -0500 (EST)
  • References: <fjj1jp$g43$1@smc.vnet.net>

On Dec 10, 3:41 am, Will Robertson <wsp... at gmail.com> wrote:
> Here's the vague problem. I'm exporting an Inset and it gets cropped:
>
> g1 = Plot[Sin[x], {x, 0, 2 \[Pi]}];
> g2 = Plot[Cos[x], {x, 0, 2 \[Pi]}];
> Graphics@Inset@Row[{g1, g2}]
> Export["test.eps", %];
> Show[Import["test.eps"]]

...

> Any ideas? Are the above problems even reproducible on other machines?

EPS (and PDF) export uses the PrintingStyleEnvironment option (which
by default is set to "Printout"), and this seems to be what is causing
the problem with Inset.  You can work around this problem by
temporarily setting this option to "Working" instead of "Printout".

(* record the old value of the PrintingStyleEnvironment option *)
oldopts = Options[$FrontEnd, PrintingStyleEnvironment];

(* set the value to "Working" *)
SetOptions[$FrontEnd, PrintingStyleEnvironment -> "Working"];

(* your export code here *)

(* reset the option to the original value *)
SetOptions[$FrontEnd, oldopts];

-Rob


  • Prev by Date: Re: Monitor bug or feature
  • Next by Date: Re: Monitor bug or feature
  • Previous by thread: Inset problems & Export
  • Next by thread: Re: Inset problems & Export