Re: Inset problems & Export
- To: mathgroup at smc.vnet.net
- Subject: [mg84106] Re: Inset problems & Export
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Mon, 10 Dec 2007 20:36:17 -0500 (EST)
- Organization: Uni Leipzig
- References: <fjj1jp$g43$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
gr = Row@{g1, g2}
Export["c:/temp/test.eps", gr]
works fine
Regards
Jens
Will Robertson wrote:
> Hello,
>
> This bug is tricky because Inset is rather unpredictable. I've had it
> change behaviour with the same code and now even killing the kernel
> giving me reproducible results. Oh well. I'm using Mathematica 6.0.1
> on Windows XP.
>
> 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"]]
>
> Sometimes you don't even need to export the thing to get the cropping
> to happen:
>
> g1 = Plot[2 Sin[x], {x, 0, 2 \[Pi]}, AspectRatio -> Automatic,
> ImageSize -> {Automatic, 200}];
> g2 = Plot[5 Cos[x], {x, 0, 2 \[Pi]}, AspectRatio -> Automatic,
> ImageSize -> {Automatic, 200}, PlotStyle -> Red];
> Row[{g1, g2}]
> Graphics@Inset[Row@{g1, g2}]
>
> Row on its own produces the plot I want. Unfortunately, it's not a
> graphics primitive, which I need it to be. I can't use GraphicsRow,
> because it produces subplots of equal width (somehow things just
> managed to work out for the ColorbarPlot package). So I'm stuck. I
> can't even reliably use Inset, let alone Export[]-ing it afterwards.
>
> Any ideas? Are the above problems even reproducible on other machines?
>
> Many thanks,
> Will
>