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

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