Setup

d = 1.5 (slider from 0.5 to 2, step 0.1)
n = 3 (slider from 3 to 8, step 1)
L_3 = Sequence((((d + 0.5) * cos((i / n * (2 * π)))), ((d + 0.5) * sin((i / n * (2 * π))))), i, 1, n)
a3 = Line(Element[L_3, n - 1], Element[L_3, n])
L_2 = Sequence(((d * cos((i / n * (2 * π)))), (d * sin((i / n * (2 * π))))), i, 1, n)
a2 = Line(Element[L_2, n], Element[L_2, 1])
L_1 = Sequence((cos((i / n * (2 * π))), sin((i / n * (2 * π)))), i, 1, n)
p1 = Polygon(Sequence[Element[L_1, i], i, 1, n])
p2 = Polygon(Sequence[Element[L_2, i], i, 1, n])
p3 = Polygon(Sequence[Element[L_3, i], i, 1, n])
a1 = Line(Element[L_1, 1], Element[L_1, 2])
a4 = Line(Element[L_2, 1], Element[L_2, 2])
a5 = Line(Element[L_1, 3], Element[L_1, 2])
a6 = Line(Element[L_2, n], Element[L_2, n - 1])
a7 = Line(Element[L_3, 1], Element[L_3, n])
A2 = Intersect(a6, a7)
A1 = Intersect(a4, a7)
A4 = Intersect(a1, a2)
A5 = Intersect(a1, a5)
A6 = Intersect(a4, a5)
A3 = Intersect(a2, a3)
shape, a1_1, a2_1, a3_1, a4_1, a5_1, a6_1 = Polygon(A1, A2, A3, A4, A5, A6)
A1' = Rotate(A1, ((2 * π) * 1 / n), (0, 0))
A2' = Rotate(A2, ((2 * π) * 1 / n), (0, 0))
A3' = Rotate(A3, ((2 * π) * 1 / n), (0, 0))
A4' = Rotate(A4, ((2 * π) * 1 / n), (0, 0))
A5' = Rotate(A5, ((2 * π) * 1 / n), (0, 0))
A6' = Rotate(A6, ((2 * π) * 1 / n), (0, 0))
A1'_1 = Rotate(A1, ((2 * π) * 2 / n), (0, 0))
A2'_1 = Rotate(A2, ((2 * π) * 2 / n), (0, 0))
A3'_1 = Rotate(A3, ((2 * π) * 2 / n), (0, 0))
A4'_1 = Rotate(A4, ((2 * π) * 2 / n), (0, 0))
A5'_1 = Rotate(A5, ((2 * π) * 2 / n), (0, 0))
A6'_1 = Rotate(A6, ((2 * π) * 2 / n), (0, 0))
A1'_2 = Rotate(A1, ((2 * π) * 3 / n), (0, 0))
A2'_2 = Rotate(A2, ((2 * π) * 3 / n), (0, 0))
A3'_2 = Rotate(A3, ((2 * π) * 3 / n), (0, 0))
A4'_2 = Rotate(A4, ((2 * π) * 3 / n), (0, 0))
A5'_2 = Rotate(A5, ((2 * π) * 3 / n), (0, 0))
A6'_2 = Rotate(A6, ((2 * π) * 3 / n), (0, 0))
A1'_3 = Rotate(A1, ((2 * π) * 4 / n), (0, 0))
A2'_3 = Rotate(A2, ((2 * π) * 4 / n), (0, 0))
A3'_3 = Rotate(A3, ((2 * π) * 4 / n), (0, 0))
A4'_3 = Rotate(A4, ((2 * π) * 4 / n), (0, 0))
A5'_3 = Rotate(A5, ((2 * π) * 4 / n), (0, 0))
A6'_3 = Rotate(A6, ((2 * π) * 4 / n), (0, 0))
A1'_4 = Rotate(A1, ((2 * π) * 5 / n), (0, 0))
A2'_4 = Rotate(A2, ((2 * π) * 5 / n), (0, 0))
A3'_4 = Rotate(A3, ((2 * π) * 5 / n), (0, 0))
A4'_4 = Rotate(A4, ((2 * π) * 5 / n), (0, 0))
A5'_4 = Rotate(A5, ((2 * π) * 5 / n), (0, 0))
A6'_4 = Rotate(A6, ((2 * π) * 5 / n), (0, 0))
A1'_5 = Rotate(A1, ((2 * π) * 6 / n), (0, 0))
A2'_5 = Rotate(A2, ((2 * π) * 6 / n), (0, 0))
A3'_5 = Rotate(A3, ((2 * π) * 6 / n), (0, 0))
A4'_5 = Rotate(A4, ((2 * π) * 6 / n), (0, 0))
A5'_5 = Rotate(A5, ((2 * π) * 6 / n), (0, 0))
A6'_5 = Rotate(A6, ((2 * π) * 6 / n), (0, 0))
A1'_6 = Rotate(A1, ((2 * π) * 7 / n), (0, 0))
A2'_6 = Rotate(A2, ((2 * π) * 7 / n), (0, 0))
A3'_6 = Rotate(A3, ((2 * π) * 7 / n), (0, 0))
A4'_6 = Rotate(A4, ((2 * π) * 7 / n), (0, 0))
A5'_6 = Rotate(A5, ((2 * π) * 7 / n), (0, 0))
A6'_6 = Rotate(A6, ((2 * π) * 7 / n), (0, 0))
A1'_7 = Rotate(A1, ((2 * π) * 0 / n), (0, 0))
A2'_7 = Rotate(A2, ((2 * π) * 0 / n), (0, 0))
A3'_7 = Rotate(A3, ((2 * π) * 0 / n), (0, 0))
A4'_7 = Rotate(A4, ((2 * π) * 0 / n), (0, 0))
A5'_7 = Rotate(A5, ((2 * π) * 0 / n), (0, 0))
A6'_7 = Rotate(A6, ((2 * π) * 0 / n), (0, 0))
T0, f, g, h, i, j, k = Polygon(Rotate[A1, ((2 * π) * 0 / n), (0, 0)], Rotate[A2, ((2 * π) * 0 / n), (0, 0)], Rotate[A3, ((2 * π) * 0 / n), (0, 0)], Rotate[A4, ((2 * π) * 0 / n), (0, 0)], Rotate[A5, ((2 * π) * 0 / n), (0, 0)], Rotate[A6, ((2 * π) * 0 / n), (0, 0)])
A1'_8 = Rotate(A1, ((2 * π) * 1 / n), (0, 0))
A2'_8 = Rotate(A2, ((2 * π) * 1 / n), (0, 0))
A3'_8 = Rotate(A3, ((2 * π) * 1 / n), (0, 0))
A4'_8 = Rotate(A4, ((2 * π) * 1 / n), (0, 0))
A5'_8 = Rotate(A5, ((2 * π) * 1 / n), (0, 0))
A6'_8 = Rotate(A6, ((2 * π) * 1 / n), (0, 0))
T1, l, m, p, q, r, s = Polygon(Rotate[A1, ((2 * π) * 1 / n), (0, 0)], Rotate[A2, ((2 * π) * 1 / n), (0, 0)], Rotate[A3, ((2 * π) * 1 / n), (0, 0)], Rotate[A4, ((2 * π) * 1 / n), (0, 0)], Rotate[A5, ((2 * π) * 1 / n), (0, 0)], Rotate[A6, ((2 * π) * 1 / n), (0, 0)])
A1'_9 = Rotate(A1, ((2 * π) * 2 / n), (0, 0))
A2'_9 = Rotate(A2, ((2 * π) * 2 / n), (0, 0))
A3'_9 = Rotate(A3, ((2 * π) * 2 / n), (0, 0))
A4'_9 = Rotate(A4, ((2 * π) * 2 / n), (0, 0))
A5'_9 = Rotate(A5, ((2 * π) * 2 / n), (0, 0))
A6'_9 = Rotate(A6, ((2 * π) * 2 / n), (0, 0))
T2, t, a, b, c, e, f_1 = Polygon(Rotate[A1, ((2 * π) * 2 / n), (0, 0)], Rotate[A2, ((2 * π) * 2 / n), (0, 0)], Rotate[A3, ((2 * π) * 2 / n), (0, 0)], Rotate[A4, ((2 * π) * 2 / n), (0, 0)], Rotate[A5, ((2 * π) * 2 / n), (0, 0)], Rotate[A6, ((2 * π) * 2 / n), (0, 0)])
A1'_{10} = Rotate(A1, ((2 * π) * 3 / n), (0, 0))
A2'_{10} = Rotate(A2, ((2 * π) * 3 / n), (0, 0))
A3'_{10} = Rotate(A3, ((2 * π) * 3 / n), (0, 0))
A4'_{10} = Rotate(A4, ((2 * π) * 3 / n), (0, 0))
A5'_{10} = Rotate(A5, ((2 * π) * 3 / n), (0, 0))
A6'_{10} = Rotate(A6, ((2 * π) * 3 / n), (0, 0))
T3, g_1, h_1, i_1, j_1, k_1, l_1 = Polygon(Rotate[A1, ((2 * π) * 3 / n), (0, 0)], Rotate[A2, ((2 * π) * 3 / n), (0, 0)], Rotate[A3, ((2 * π) * 3 / n), (0, 0)], Rotate[A4, ((2 * π) * 3 / n), (0, 0)], Rotate[A5, ((2 * π) * 3 / n), (0, 0)], Rotate[A6, ((2 * π) * 3 / n), (0, 0)])
A1'_{11} = Rotate(A1, ((2 * π) * 4 / n), (0, 0))
A2'_{11} = Rotate(A2, ((2 * π) * 4 / n), (0, 0))
A3'_{11} = Rotate(A3, ((2 * π) * 4 / n), (0, 0))
A4'_{11} = Rotate(A4, ((2 * π) * 4 / n), (0, 0))
A5'_{11} = Rotate(A5, ((2 * π) * 4 / n), (0, 0))
A6'_{11} = Rotate(A6, ((2 * π) * 4 / n), (0, 0))
T4, m_1, n_1, p_1, q_1, r_1, s_1 = Polygon(Rotate[A1, ((2 * π) * 4 / n), (0, 0)], Rotate[A2, ((2 * π) * 4 / n), (0, 0)], Rotate[A3, ((2 * π) * 4 / n), (0, 0)], Rotate[A4, ((2 * π) * 4 / n), (0, 0)], Rotate[A5, ((2 * π) * 4 / n), (0, 0)], Rotate[A6, ((2 * π) * 4 / n), (0, 0)])
A1'_{12} = Rotate(A1, ((2 * π) * 5 / n), (0, 0))
A2'_{12} = Rotate(A2, ((2 * π) * 5 / n), (0, 0))
A3'_{12} = Rotate(A3, ((2 * π) * 5 / n), (0, 0))
A4'_{12} = Rotate(A4, ((2 * π) * 5 / n), (0, 0))
A5'_{12} = Rotate(A5, ((2 * π) * 5 / n), (0, 0))
A6'_{12} = Rotate(A6, ((2 * π) * 5 / n), (0, 0))
T5, t_1, a_1, b_1, c_1, d_1, e_1 = Polygon(Rotate[A1, ((2 * π) * 5 / n), (0, 0)], Rotate[A2, ((2 * π) * 5 / n), (0, 0)], Rotate[A3, ((2 * π) * 5 / n), (0, 0)], Rotate[A4, ((2 * π) * 5 / n), (0, 0)], Rotate[A5, ((2 * π) * 5 / n), (0, 0)], Rotate[A6, ((2 * π) * 5 / n), (0, 0)])
A1'_{13} = Rotate(A1, ((2 * π) * 6 / n), (0, 0))
A2'_{13} = Rotate(A2, ((2 * π) * 6 / n), (0, 0))
A3'_{13} = Rotate(A3, ((2 * π) * 6 / n), (0, 0))
A4'_{13} = Rotate(A4, ((2 * π) * 6 / n), (0, 0))
A5'_{13} = Rotate(A5, ((2 * π) * 6 / n), (0, 0))
A6'_{13} = Rotate(A6, ((2 * π) * 6 / n), (0, 0))
T6, f_2, g_2, h_2, i_2, j_2, k_2 = Polygon(Rotate[A1, ((2 * π) * 6 / n), (0, 0)], Rotate[A2, ((2 * π) * 6 / n), (0, 0)], Rotate[A3, ((2 * π) * 6 / n), (0, 0)], Rotate[A4, ((2 * π) * 6 / n), (0, 0)], Rotate[A5, ((2 * π) * 6 / n), (0, 0)], Rotate[A6, ((2 * π) * 6 / n), (0, 0)])
A1'_{14} = Rotate(A1, ((2 * π) * 7 / n), (0, 0))
A2'_{14} = Rotate(A2, ((2 * π) * 7 / n), (0, 0))
A3'_{14} = Rotate(A3, ((2 * π) * 7 / n), (0, 0))
A4'_{14} = Rotate(A4, ((2 * π) * 7 / n), (0, 0))
A5'_{14} = Rotate(A5, ((2 * π) * 7 / n), (0, 0))
A6'_{14} = Rotate(A6, ((2 * π) * 7 / n), (0, 0))
T7, l_2, m_2, n_2, p_2, q_2, r_2 = Polygon(Rotate[A1, ((2 * π) * 7 / n), (0, 0)], Rotate[A2, ((2 * π) * 7 / n), (0, 0)], Rotate[A3, ((2 * π) * 7 / n), (0, 0)], Rotate[A4, ((2 * π) * 7 / n), (0, 0)], Rotate[A5, ((2 * π) * 7 / n), (0, 0)], Rotate[A6, ((2 * π) * 7 / n), (0, 0)])