We have four disks in a cell which are too far away each other. The Grid
has been generated by below code as long as disk
and style
were defined by
disk = Graphics[{Green, Disk[{1, 1}, Scaled[{.35, .35}]]}];
style = {FontFamily -> "Times", FontSize -> 14, Bold, Blue};
Grid[{
{" ", Style["Number", style]},
{Style["doubleNumber", style],
Grid[{{disk, disk}, {disk, disk}}]}},
Frame -> All, ItemSize -> {{Scaled[.13], Scaled[.09]}, 1},
FrameStyle -> Directive[Black, Thick]]
The problem is the distance between disks. We so much tried to close all disks as much as possible but we could not do that. I mean we want to approach disk in a distance that are still recognizable. However we used ImagePadding
or Offset
but we could not reach the desired case.
How can we reduce the extra space between disks?
Scaled[{.35, .35}]
? do you want that 15% margin or not? $\endgroup$ – Kuba♦ Apr 20 '18 at 20:08disk=Graphics[{Green,Disk[{1,1},Scaled[.48]]},PlotRange->All]; style={FontFamily->"Times",FontSize->14,Bold,Blue}; Grid[{{" ",Style["Number",style]},{Style["doubleNumber",style], di=Grid[{{disk,disk},{disk,disk}},Spacings->{0,0}(*,Dividers\[Rule]All,*)] }},Frame->All,ItemSize->{{Scaled[.13],Scaled[.37]},1},FrameStyle->Directive[Black,Thick]]
$\endgroup$ – Rolf Mertig Apr 20 '18 at 20:15Grid
challenges. $\endgroup$ – Jagra Apr 20 '18 at 20:25dotSizes = {40}; dots = Graphics[{Pink, Disk[]}, ImageSize -> #] & /@ dotSizes;
by help of @Jagra $\endgroup$ – Unbelievable Apr 20 '18 at 20:47