A = (-7.178095238095246, -1.1052380952381025)
B = (5.730476190476186, -1.2852380952381028)
C = (13.75, -0.57)
c = Circle(C, 4)
d = Circle(C, 8)
D = Point(c)
lista1 = Sequence(Rotate[D, ((i * 36))°, C], i, 1, 9)
E = Point(d)
a = Segment(C, E)
lista2 = Sequence(Rotate[E, ((i * 72))°, C], i, 1, 4)
F = Point(d)
G = Point(d)
H = Point(d)
I = Point(d)
poligon1, f, g, h, i, e = Polygon(F, G, H, I, E)
J = Point(c)
lista3 = Sequence(Segment[Rotate[D, ((i * 36))°, C], Rotate[J, ((i * 36))°, C]], i, 0, 9)
K = Point(c)
lista4 = Sequence(Segment[Rotate[D, ((i * 36))°, C], Rotate[K, ((i * 36))°, C]], i, 0, 9)
L = Point(c)
lista5 = Sequence(Segment[Rotate[D, ((i * 36))°, C], Rotate[L, ((i * 36))°, C]], i, 0, 4)
M = (14.68, 2.22)
N = (14.59, -3.3)
lista6 = Sequence(Segment[Rotate[M, ((i * 36))°, C], Rotate[N, ((i * 36))°, C]], i, 0, 9)
O = (12.88, 0.15)
P = (12.88, 3.18)
b = Segment(O, P)
Q = (14.65, 0.12)
R = (14.74, 3.15)
j = Segment(Q, R)
lista7 = Sequence(Segment[Rotate[O, ((i * 36))°, C], Rotate[P, ((i * 36))°, C]], i, 0, 9)
lista8 = Sequence(Segment[Rotate[P, ((i * 36))°, C], Rotate[D, ((i * 36))°, C]], i, 0, 9)
lista9 = Sequence(Segment[Rotate[D, ((i * 36))°, C], Rotate[R, ((i * 36))°, C]], i, 0, 9)
lista10 = Sequence(Segment[Rotate[R, ((i * 36))°, C], Rotate[Q, ((i * 36))°, C]], i, 0, 9)
S = Point(c)
k = Segment(C, S)
l = OrthogonalLine(S, k)
T = (12.61, -0.51)
U = (10.75, -2.94)
V = (12.19, -4.08)
W = (14.05, -1.56)
m = PolyLine(T, U, S, V, W)
T' = Mirror(T, l)
U' = Mirror(U, l)
S' = Mirror(S, l)
V' = Mirror(V, l)
W' = Mirror(W, l)
m' = PolyLine(T', U', S', V', W')
lista11 = Sequence(PolyLine[Rotate[T', ((i * 72))°, C], Rotate[U', ((i * 72))°, C], Rotate[S', ((i * 72))°, C], Rotate[V', ((i * 72))°, C], Rotate[W', ((i * 72))°, C]], i, 0, 5)
Z = Point(c)
A_1 = (10.42, -2.49)
B_1 = (13.36, -1.56)
C_1 = (14.59, -3.3)
n = PolyLine(Z, A_1, B_1, C_1)
Z' = Mirror(Z, l)
D_1 = Mirror(A_1, l)
E_1 = Mirror(B_1, l)
F_1 = Mirror(C_1, l)
n' = PolyLine(Z', D_1, E_1, F_1)
lista12 = Sequence(PolyLine[Rotate[Z', ((i * 72))°, C], Rotate[D_1, ((i * 72))°, C], Rotate[E_1, ((i * 72))°, C], Rotate[F_1, ((i * 72))°, C]], i, 0, 5)
G_1 = (10.78, -0.54)
H_1 = (12.85, -1.17)
I_1 = (12.76, -4.26)
J_1 = Point(c)
p = PolyLine(G_1, H_1, I_1, J_1)
K_1 = Mirror(G_1, l)
L_1 = Mirror(H_1, l)
M_1 = Mirror(I_1, l)
N_1 = Mirror(J_1, l)
p' = PolyLine(K_1, L_1, M_1, N_1)
lista13 = Sequence(PolyLine[Rotate[K_1, ((i * 72))°, C], Rotate[L_1, ((i * 72))°, C], Rotate[M_1, ((i * 72))°, C], Rotate[N_1, ((i * 72))°, C]], i, 0, 5)
q = Segment(C, J_1)
r = OrthogonalLine(J_1, q)
O_1 = Point(q)
P_1 = (12.82, -3.33)
s = PolyLine(O_1, P_1, I_1, J_1)
t = PolyLine(O_1, P_1, I_1, J_1)
Q_1 = Mirror(O_1, r)
R_1 = Mirror(P_1, r)
S_1 = Mirror(I_1, r)
T_1 = Mirror(J_1, r)
s' = PolyLine(Q_1, R_1, S_1, T_1)
U_1 = (14.62, -4.26)
poligon2, p_1, o_1, c_1, u_1, j_1, i_1 = Polygon(P_1, O_1, C_1, U_1, J_1, I_1)
V_1 = Mirror(P_1, r)
W_1 = Mirror(O_1, r)
Z_1 = Mirror(C_1, r)
A_2 = Mirror(U_1, r)
B_2 = Mirror(J_1, r)
C_2 = Mirror(I_1, r)
poligon2', v_1, w_1, z_1, a_2, b_2, c_2 = Polygon(V_1, W_1, Z_1, A_2, B_2, C_2)
lista14 = Sequence(Polygon[Rotate[V_1, ((i * 72))°, C], Rotate[W_1, ((i * 72))°, C], Rotate[Z_1, ((i * 72))°, C], Rotate[A_2, ((i * 72))°, C], Rotate[B_2, ((i * 72))°, C], Rotate[C_2, ((i * 72))°, C]], i, 0, 5)
a_1 = PolyLine(J_1, S_1, N_1)
D_2 = Mirror(J_1, N_1)
F_2 = Mirror(N_1, N_1)
G_2 = (12.77, -6.793333333333336)
d_1 = PolyLine(N_1, G_2, F_1)
lista15 = Sequence(PolyLine[Rotate[N_1, ((i * 72))°, C], Rotate[G_2, ((i * 72))°, C], Rotate[F_1, ((i * 72))°, C]], i, 0, 5)
E_2 = (14.460476190476186, -6.809523809523814)
H_2 = Point(i)
b_1 = PolyLine(Z_1, E_2, H_2)
lista16 = Sequence(PolyLine[Rotate[Z_1, ((i * 72))°, C], Rotate[E_2, ((i * 72))°, C], Rotate[H_2, ((i * 72))°, C]], i, 0, 5)