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 >