r = 3.6 (slider from -5 to 5, step 0.1)
A = (0, 0)
c = Circle(A, r)
B, C = Intersect(c, xAxis)
a, b = AngularBisector(yAxis, xAxis)
D, E = Intersect(c, b)
F, G = Intersect(c, a)
H, I = Intersect(c, yAxis)
d = Parabola(E, yAxis)
J = Intersect(d, b, 1.0)
e = Circle(J, E)
e'_1 = Mirror(e, xAxis)
e' = Mirror(e, yAxis)
f = Mirror(e'_1, yAxis)
K = Intersect(e, e', 1.0)
L = Intersect(e, e'_1, 1.0)
M = Intersect(e'_1, f, 1.0)
N = Intersect(e', f, 1.0)
g = Circle(A, L)
polígono1, m_1, n_1, h, i, O, P = Polygon(M, N, 4.0)
polígono2, l_1, m, j, k_1, Q, R = Polygon(L, M, 4.0)
polígono3, k_2, l, p, q, S, T = Polygon(K, L, 4.0)
polígono4, n, k, s, t, U, V = Polygon(N, K, 4.0)
c_1 = CircumcircleArc(V, B, O)
d_1 = CircumcircleArc(P, I, Q)
e_1 = CircumcircleArc(R, C, S)
f_1 = CircumcircleArc(K, V, N)
g_1 = CircumcircleArc(N, P, M)
h_1 = CircumcircleArc(M, R, L)
p_1 = CircumcircleArc(L, S, K)
q_1 = Circle(U, 0.25)
r_1 = Circle(T, 0.25)
s_1 = Circle(S, 0.25)
t_1 = Circle(C, 0.25)
c_2 = Circle(L, 0.25)
d_2 = Circle(K, 0.25)
e_2 = Circle(N, 0.25)
f_2 = Circle(V, 0.25)
g_2 = Circle(B, 0.25)
h_2 = Circle(O, 0.25)
p_2 = Circle(P, 0.25)
q_2 = Circle(I, 0.25)
r_2 = Circle(Q, 0.25)
s_2 = Circle(R, 0.25)
t_2 = Circle(M, 0.25)
W = (-0.02, -3.62)
Z = (-0.02860000000000013, 1.5092000000000003)
c_3 = CircumcircleArc(T, H, U)