A = (0, 0)
B = (10, 0)
C = Rotate(B, 60°, A)
A1: {{A, B}, {B, C}, {C, A}}
A2 = Join(Sequence[{{Element[Element[A1, i], 1], (2 / 3 * Element[Element[A1, i], 1]) + (1 / 3 * Element[Element[A1, i], 2])}, {(2 / 3 * Element[Element[A1, i], 1]) + (1 / 3 * Element[Element[A1, i], 2]), Rotate[(1 / 3 * Element[Element[A1, i], 1]) + (2 / 3 * Element[Element[A1, i], 2]), 300°, (2 / 3 * Element[Element[A1, i], 1]) + (1 / 3 * Element[Element[A1, i], 2])]}, {Rotate[(1 / 3 * Element[Element[A1, i], 1]) + (2 / 3 * Element[Element[A1, i], 2]), 300°, (2 / 3 * Element[Element[A1, i], 1]) + (1 / 3 * Element[Element[A1, i], 2])], (1 / 3 * Element[Element[A1, i], 1]) + (2 / 3 * Element[Element[A1, i], 2])}, {(1 / 3 * Element[Element[A1, i], 1]) + (2 / 3 * Element[Element[A1, i], 2]), Element[Element[A1, i], 2]}}, i, 1, Length[A1]])
A3 = Join(Sequence[{{Element[Element[A2, i], 1], (2 / 3 * Element[Element[A2, i], 1]) + (1 / 3 * Element[Element[A2, i], 2])}, {(2 / 3 * Element[Element[A2, i], 1]) + (1 / 3 * Element[Element[A2, i], 2]), Rotate[(1 / 3 * Element[Element[A2, i], 1]) + (2 / 3 * Element[Element[A2, i], 2]), 300°, (2 / 3 * Element[Element[A2, i], 1]) + (1 / 3 * Element[Element[A2, i], 2])]}, {Rotate[(1 / 3 * Element[Element[A2, i], 1]) + (2 / 3 * Element[Element[A2, i], 2]), 300°, (2 / 3 * Element[Element[A2, i], 1]) + (1 / 3 * Element[Element[A2, i], 2])], (1 / 3 * Element[Element[A2, i], 1]) + (2 / 3 * Element[Element[A2, i], 2])}, {(1 / 3 * Element[Element[A2, i], 1]) + (2 / 3 * Element[Element[A2, i], 2]), Element[Element[A2, i], 2]}}, i, 1, Length[A2]])
A4 = Join(Sequence[{{Element[Element[A3, i], 1], (2 / 3 * Element[Element[A3, i], 1]) + (1 / 3 * Element[Element[A3, i], 2])}, {(2 / 3 * Element[Element[A3, i], 1]) + (1 / 3 * Element[Element[A3, i], 2]), Rotate[(1 / 3 * Element[Element[A3, i], 1]) + (2 / 3 * Element[Element[A3, i], 2]), 300°, (2 / 3 * Element[Element[A3, i], 1]) + (1 / 3 * Element[Element[A3, i], 2])]}, {Rotate[(1 / 3 * Element[Element[A3, i], 1]) + (2 / 3 * Element[Element[A3, i], 2]), 300°, (2 / 3 * Element[Element[A3, i], 1]) + (1 / 3 * Element[Element[A3, i], 2])], (1 / 3 * Element[Element[A3, i], 1]) + (2 / 3 * Element[Element[A3, i], 2])}, {(1 / 3 * Element[Element[A3, i], 1]) + (2 / 3 * Element[Element[A3, i], 2]), Element[Element[A3, i], 2]}}, i, 1, Length[A3]])
A5 = Join(Sequence[{{Element[Element[A4, i], 1], (2 / 3 * Element[Element[A4, i], 1]) + (1 / 3 * Element[Element[A4, i], 2])}, {(2 / 3 * Element[Element[A4, i], 1]) + (1 / 3 * Element[Element[A4, i], 2]), Rotate[(1 / 3 * Element[Element[A4, i], 1]) + (2 / 3 * Element[Element[A4, i], 2]), 300°, (2 / 3 * Element[Element[A4, i], 1]) + (1 / 3 * Element[Element[A4, i], 2])]}, {Rotate[(1 / 3 * Element[Element[A4, i], 1]) + (2 / 3 * Element[Element[A4, i], 2]), 300°, (2 / 3 * Element[Element[A4, i], 1]) + (1 / 3 * Element[Element[A4, i], 2])], (1 / 3 * Element[Element[A4, i], 1]) + (2 / 3 * Element[Element[A4, i], 2])}, {(1 / 3 * Element[Element[A4, i], 1]) + (2 / 3 * Element[Element[A4, i], 2]), Element[Element[A4, i], 2]}}, i, 1, Length[A4]])
n = 5 (slider from 1 to 5, step 1)
B5 = Polygon(Join[Sequence[Element[A5, i], i, 1, Length[A5]]])
B2 = Polygon(Join[Sequence[Element[A2, i], i, 1, Length[A2]]])
B3 = Polygon(Join[Sequence[Element[A3, i], i, 1, Length[A3]]])
B4 = Polygon(Join[Sequence[Element[A4, i], i, 1, Length[A4]]])
B1 = Polygon(Join[Sequence[Element[A1, i], i, 1, Length[A1]]])