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

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.