This is what I've made:
tri[lista_] := Module[{news},
news = Table[lista[[i]] + lista[[i + 1]], {i, 1, 3}]/2;
news = Append[news, First[news]];
news]
dib= Map[Line,
NestList[tri, {{0, 0, 0}, {25, 25 Sqrt[3], 0}, {50, 0, 10}, {0, 0,
0}}, 2]];
As you will see in the chart below, it is where I have problems
Graphics3D[dib, Boxed -> False]
I still don't know how to make Mathematica draw triangles as shown in the image below
Could you help me someone please get this image?, I thank you in advance