A = (0, 0)
B = (10, 0)
C = Rotate(B, 60°, A)
A1: {{A, B, C}}
B1 = Polygon(Element[A1, 1])
A2: {{A, Midpoint[A, B], Midpoint[A, C]}, {B, Midpoint[B, A], Midpoint[B, C]}, {C, Midpoint[C, A], Midpoint[C, B]}}
B2 = Sequence(Polygon[Element[A2, i]], i, 1, 3)
A3 = Join(Sequence[{{Element[Element[A2, i], 1], Midpoint[Element[Element[A2, i], 1], Element[Element[A2, i], 2]], Midpoint[Element[Element[A2, i], 1], Element[Element[A2, i], 3]]}, {Element[Element[A2, i], 2], Midpoint[Element[Element[A2, i], 2], Element[Element[A2, i], 1]], Midpoint[Element[Element[A2, i], 2], Element[Element[A2, i], 3]]}, {Element[Element[A2, i], 3], Midpoint[Element[Element[A2, i], 3], Element[Element[A2, i], 1]], Midpoint[Element[Element[A2, i], 3], Element[Element[A2, i], 2]]}}, i, 1, Length[A2]])
B3 = Sequence(Polygon[Element[A3, i]], i, 1, Length[A3])
A4 = Join(Sequence[{{Element[Element[A3, i], 1], Midpoint[Element[Element[A3, i], 1], Element[Element[A3, i], 2]], Midpoint[Element[Element[A3, i], 1], Element[Element[A3, i], 3]]}, {Element[Element[A3, i], 2], Midpoint[Element[Element[A3, i], 2], Element[Element[A3, i], 1]], Midpoint[Element[Element[A3, i], 2], Element[Element[A3, i], 3]]}, {Element[Element[A3, i], 3], Midpoint[Element[Element[A3, i], 3], Element[Element[A3, i], 1]], Midpoint[Element[Element[A3, i], 3], Element[Element[A3, i], 2]]}}, i, 1, Length[A3]])
B4 = Sequence(Polygon[Element[A4, i]], i, 1, Length[A4])
A5 = Join(Sequence[{{Element[Element[A4, i], 1], Midpoint[Element[Element[A4, i], 1], Element[Element[A4, i], 2]], Midpoint[Element[Element[A4, i], 1], Element[Element[A4, i], 3]]}, {Element[Element[A4, i], 2], Midpoint[Element[Element[A4, i], 2], Element[Element[A4, i], 1]], Midpoint[Element[Element[A4, i], 2], Element[Element[A4, i], 3]]}, {Element[Element[A4, i], 3], Midpoint[Element[Element[A4, i], 3], Element[Element[A4, i], 1]], Midpoint[Element[Element[A4, i], 3], Element[Element[A4, i], 2]]}}, i, 1, Length[A4]])
B5 = Sequence(Polygon[Element[A5, i]], i, 1, Length[A5])
A6 = Join(Sequence[{{Element[Element[A5, i], 1], Midpoint[Element[Element[A5, i], 1], Element[Element[A5, i], 2]], Midpoint[Element[Element[A5, i], 1], Element[Element[A5, i], 3]]}, {Element[Element[A5, i], 2], Midpoint[Element[Element[A5, i], 2], Element[Element[A5, i], 1]], Midpoint[Element[Element[A5, i], 2], Element[Element[A5, i], 3]]}, {Element[Element[A5, i], 3], Midpoint[Element[Element[A5, i], 3], Element[Element[A5, i], 1]], Midpoint[Element[Element[A5, i], 3], Element[Element[A5, i], 2]]}}, i, 1, Length[A5]])
B6 = Sequence(Polygon[Element[A6, i]], i, 1, Length[A6])
A7 = Join(Sequence[{{Element[Element[A6, i], 1], Midpoint[Element[Element[A6, i], 1], Element[Element[A6, i], 2]], Midpoint[Element[Element[A6, i], 1], Element[Element[A6, i], 3]]}, {Element[Element[A6, i], 2], Midpoint[Element[Element[A6, i], 2], Element[Element[A6, i], 1]], Midpoint[Element[Element[A6, i], 2], Element[Element[A6, i], 3]]}, {Element[Element[A6, i], 3], Midpoint[Element[Element[A6, i], 3], Element[Element[A6, i], 1]], Midpoint[Element[Element[A6, i], 3], Element[Element[A6, i], 2]]}}, i, 1, Length[A6]])
B7 = Sequence(Polygon[Element[A7, i]], i, 1, Length[A7])
n = 1 (slider from 1 to 7, step 1)