Arsthbt

I want to draw this:

I have managed to do one of the Hexagons using this code:

documentclassarticle
usepackagetikz
begindocument
beginfigure
begintikzpicture[scale=2,cap=round,>=latex]

 newdimenR
 R=0.8cm
coordinate (center) at (0,0);
draw (0:R)
 foreach x in 60,120,...,360 -- (x:R) 
 -- cycle (300:R) node[below] 
 -- cycle (240:R) node[below] 
 -- cycle (180:R) node[left] 
 -- cycle (120:R) node[above] 
 -- cycle (60:R) node[above] 
 -- cycle (0:R) node[right] ;
draw (60:R) -- (30:0.69) -- (center) -- (60:R) [fill=gray];
draw (90:0.69) -- (120:R) -- (center) -- (90:0.69) [fill=gray];
draw (180:R) -- (150:0.69) -- (center) -- (180:R) [fill=gray];
draw (240:R) -- (210:0.69) -- (center) -- (240:R) [fill=gray];
draw (300:R) -- (270:0.69) -- (center) -- (300:R) [fill=gray];
draw (0:R) -- (330:0.69) -- (center) -- (0:R) [fill=gray];

endtikzpicture
endfigure

enddocument

And it draw this:

But when I try to do 4 of them, it is really complicated to me, please help with that. Thank you

Normally the recommendation is to use pics but here you can just use a slightly extended standard node.

documentclassarticle
usepackagetikz
usetikzlibraryshapes.geometric,calc
tikzsetrepeating shape/.style=regular polygon,regular polygon sides=#1,alias=curr,draw,append after command=
 [draw,] foreach XX [remember=XX as YY (initially #1)] 
 in 1,...,#1 
 (curr.corner XX) -- (curr.center) -- ($(curr.corner YY)!0.5!(curr.corner
 XX)$)

begindocument
beginfigure
begintikzpicture[scale=2]
 draw[fill=gray] foreach X in 0,2.2 foreach Y in 0,2.2
 (X,Y) node[repeating shape=6,minimum size=3cm] ;
endtikzpicture
endfigure
enddocument