Re: Row spacing in GraphicsArray
- To: mathgroup at smc.vnet.net
- Subject: [mg28119] Re: Row spacing in GraphicsArray
- From: Jonny Wilson <jonny at jonny.com>
- Date: Sat, 31 Mar 2001 02:58:52 -0500 (EST)
- Organization: BT Internet
- References: <9a1kk2$a4l@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <9a1kk2$a4l at smc.vnet.net>, "Wolf, Hartmut" <Hartmut.Wolf at t-systems.de> wrote: > > -----Original Message----- > > From: Jonny Wilson [mailto:jonny at jonny.com] To: mathgroup at smc.vnet.net > > Sent: Thursday, March 29, 2001 10:24 AM > > To: mathgroup at smc.vnet.net > > Subject: [mg28119] Row spacing in GraphicsArray > > > > > > Is there a way of independently adjusting the spaces between pairs of > > adjacent rows in a GraphicsArray? (The option GraphicsSpacing > > can only > > set all of the row spaces to the same value.) > > > > Jonny, > > you may apply GraphicsArray iterated, and thereby specify different > spacing: > > g = Plot[{Sin[x], Cos[x]}, {x, 0, 2*Pi}, > PlotStyle -> {Hue[0], Hue[0.6]}] > > g2 = GraphicsArray[{{g, g}, {g, g}}, > GraphicsSpacing -> 0.] > > Show[GraphicsArray[{g2, g2}, GraphicsSpacing -> 0.1]] > > -- Hartmut > > Thanks Hartmut. Your method works well for your example, but it's not so good if the GraphicsArrays have different dimensions. g = Plot[{Sin[x], Cos[x]}, {x, 0, 2*Pi}, PlotStyle -> {Hue[0], Hue[0.6]}] g2 = GraphicsArray[{{g, g}, {g, g}}, GraphicsSpacing -> 0.] g3 = GraphicsArray[{{g}, {g}}, GraphicsSpacing -> 0.] Show[GraphicsArray[{g2, g3}, GraphicsSpacing -> 0.1]] In the combiend plot Mathematica centres g2 and g3 in equal-sized rectangles. Thus there is too much space between g2 and g3. Jonny.