Inset problems & Export

*To*: mathgroup at smc.vnet.net*Subject*: [mg84093] Inset problems & Export*From*: Will Robertson <wspr81 at gmail.com>*Date*: Mon, 10 Dec 2007 04:35:46 -0500 (EST)

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