Re: Extra spacing in GraphicsGrid

*To*: mathgroup at smc.vnet.net*Subject*: [mg83496] Re: Extra spacing in GraphicsGrid*From*: m.r at inbox.ru*Date*: Wed, 21 Nov 2007 03:05:09 -0500 (EST)*References*: <fhu82c$7h6$1@smc.vnet.net>

On Nov 20, 3:06 am, Yaroslav Bulatov <yarosla... at gmail.com> wrote: > In the code below, I'm trying to position two Graphics next to each > other. However, I get excessive spacing between two graphics object > even if I set Spacing to {0,0}. The problem goes away if I Rasterize > the Graphics objects. However that is suboptimal because I need to > keep the original graphics structure. > > So, is there any way to get rid of the extra spacing without > rasterizing the graphics objects first? > > g = {1 -> 4, 2 -> 5, 3 -> 6, 4 -> 5, 5 -> 6, 6 -> 4}; > coloredPlot[g_, chosen_] := > Module[{}, > GraphPlot[g, > VertexRenderingFunction -> > Function[{r, v}, {If[MemberQ[chosen, v], Black, Red], > Disk[r, .2]}], EdgeLabeling -> None]]; > g1 = coloredPlot[g, {1}~Join~#] & /@ Subsets[Range[2, 6]] // > Partition[#, 4] & // GraphicsGrid; > g2 = coloredPlot[g, #] & /@ Subsets[Range[2, 6]] // > Partition[#, 4] & // GraphicsGrid; > GraphicsGrid[{{g1, g2}}, Spacings -> {0, 0}] > GraphicsGrid[{{Rasterize[g1], Rasterize[g2]}}, Spacings -> {30, 0}] When you put one GraphicsGrid inside another, the outer GraphicsGrid cannot figure out the optimal inset sizes. Use GraphicsGrid[{{g1, g2}}, ItemAspectRatio -> 2, Spacings -> 0] Maxim Rytin m.r at inbox.ru