A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
d = Circle(B, Length[Vector[A, B]])
C, D = Intersect(d, c)
D' = Mirror(D, yAxis)
C' = Mirror(C, yAxis)
B' = Mirror(B, yAxis)
Vieleck1, c', b, d' = Polygon(B, D', C')
Vieleck2, c_1, b', d_1 = Polygon(B', D, C)
E = Intersect(c', c_1)
a = OrthogonalLine(E, yAxis)
e = Segment(D, C')
F = Intersect(e, a)
f = Circle(F, D)
g = OrthogonalLine(F, d')
G, H = Intersect(f, g)
I, J = Intersect(f, a)
K, L = Intersect(f, e)
Vieleck3, l, h, j = Polygon(H, J, L)
H'_1 = Mirror(H, yAxis)
L'_1 = Mirror(L, yAxis)
J'_1 = Mirror(J, yAxis)
J'_2 = Mirror(J, xAxis)
H'_2 = Mirror(H, xAxis)
I' = Mirror(I, xAxis)
L'_2 = Mirror(L, xAxis)
M = Mirror(J'_1, xAxis)
N = Mirror(L'_1, xAxis)
O = Mirror(H'_1, xAxis)
H'_3 = Mirror(H, yAxis)
J'_3 = Mirror(J, yAxis)
L'_3 = Mirror(L, yAxis)
Vieleck3'_1, l', h', j' = Polygon(H'_3, J'_3, L'_3)
H''_1 = Mirror(H'_3, xAxis)
J''_1 = Mirror(J'_3, xAxis)
L''_1 = Mirror(L'_3, xAxis)
Vieleck3''_1, l'', h'', j'' = Polygon(H''_1, J''_1, L''_1)
H'_4 = Mirror(H, xAxis)
J'_4 = Mirror(J, xAxis)
L'_4 = Mirror(L, xAxis)
Vieleck3'_2, l'_1, h'_1, j'_1 = Polygon(H'_4, J'_4, L'_4)
i = OrthogonalLine(G, g)
H' = Mirror(H, i)
J' = Mirror(J, i)
L' = Mirror(L, i)
Vieleck3', l'_2, h'_2, j'_2 = Polygon(H', J', L')
H'' = Mirror(H', yAxis)
J'' = Mirror(J', yAxis)
L'' = Mirror(L', yAxis)
Vieleck3'', l''_1, h''_1, j''_1 = Polygon(H'', J'', L'')
P = Intersect(c_1, j)
k = OrthogonalLine(P, l)
Q = Intersect(k, g)
p = Circle(Q, H)
R = Intersect(p, k, 2.0)
R'_1 = Mirror(R, g)
S = Intersect(p, g, 2.0)
Vieleck4, s, r', r = Polygon(R'_1, R, S)
R''_1 = Mirror(R'_1, e)
R'_2 = Mirror(R, e)
S'_1 = Mirror(S, e)
Vieleck4', s', r'', r'_1 = Polygon(R''_1, R'_2, S'_1)
m = Line(F, i)
R''' = Mirror(R''_1, m)
R''_2 = Mirror(R'_2, m)
S''_1 = Mirror(S'_1, m)
Vieleck5, r''_1, r''', s'' = Polygon(R''', S''_1, R''_2)
R''_3 = Mirror(R'_2, i)
T = Mirror(R''_1, i)
S''_2 = Mirror(S'_1, i)
Vieleck6, r''_2, t, s''_1 = Polygon(T, S''_2, R''_3)
R''_4 = Mirror(R'_2, xAxis)
S''_3 = Mirror(S'_1, xAxis)
U = Mirror(R''_1, xAxis)
V = Mirror(R''_3, xAxis)
T'_1 = Mirror(T, xAxis)
W = Mirror(S''_2, xAxis)
Z = Mirror(R'_1, xAxis)
R' = Mirror(R, xAxis)
S' = Mirror(S, xAxis)
A_1 = Intersect(c', h'_2)
B_1 = Intersect(yAxis, c')
n = Line(A_1, yAxis)
T' = Mirror(T, n)
C_1 = Mirror(R''_3, n)
D_1 = Mirror(S''_2, n)
Vieleck7, d_2, c_2, t' = Polygon(C_1, T', D_1)
Vieleck8, v, w, t'_1 = Polygon(W, T'_1, V)
Vieleck9, r''_3, u, s''_2 = Polygon(U, S''_3, R''_4)
Vieleck10, z, s'_1, r'_2 = Polygon(S', R', Z)
E_1 = Mirror(R''_2, i)
F_1 = Mirror(R''', i)
G_1 = Mirror(S''_1, i)
Vieleck11, f_1, g_1, e_1 = Polygon(G_1, E_1, F_1)
T''_1 = Mirror(T', i)
H_1 = Mirror(C_1, i)
I_1 = Mirror(D_1, i)
Vieleck12, h_1, i_1, t'' = Polygon(I_1, T''_1, H_1)
J_1 = Mirror(R''', g)
K_1 = Mirror(R''_2, g)
L_1 = Mirror(S''_1, g)
Vieleck13, l_1, k_1, j_1 = Polygon(K_1, J_1, L_1)
T'' = Mirror(T', xAxis)
M_1 = Mirror(C_1, xAxis)
N_1 = Mirror(D_1, xAxis)
O_1 = Mirror(T''_1, xAxis)
P_1 = Mirror(I_1, xAxis)
Q_1 = Mirror(H_1, xAxis)
R_1 = Mirror(R''_2, xAxis)
S_1 = Mirror(R''', xAxis)
T_1 = Mirror(S''_1, xAxis)
U_1 = Mirror(J_1, xAxis)
V_1 = Mirror(L_1, xAxis)
W_1 = Mirror(K_1, xAxis)
Vieleck14, t''_1, m_1, n_1 = Polygon(M_1, N_1, T'')
Vieleck15, o_1, q_1, p_1 = Polygon(Q_1, P_1, O_1)
Vieleck16, s_1, t_1, r_1 = Polygon(T_1, R_1, S_1)
Vieleck17, w_1, v_1, u_1 = Polygon(V_1, U_1, W_1)
Z_1 = Mirror(U_1, yAxis)
A_2 = Mirror(W_1, yAxis)
B_2 = Mirror(V_1, yAxis)
Z' = Mirror(Z, yAxis)
S'' = Mirror(S', yAxis)
R'' = Mirror(R', yAxis)
C_2 = Mirror(S_1, yAxis)
D_2 = Mirror(T_1, yAxis)
E_2 = Mirror(R_1, yAxis)
F_2 = Mirror(R''_4, yAxis)
G_2 = Mirror(S''_3, yAxis)
U' = Mirror(U, yAxis)
H_2 = Mirror(O_1, yAxis)
I_2 = Mirror(Q_1, yAxis)
J_2 = Mirror(P_1, yAxis)
Vieleck18, z_1, a_2, b_2 = Polygon(A_2, B_2, Z_1)
Vieleck19, r''_4, s''_3, z' = Polygon(S'', Z', R'')
Vieleck20, e_2, d_3, c_3 = Polygon(D_2, C_2, E_2)
Vieleck21, u', g_2, f_2 = Polygon(G_2, F_2, U')
Vieleck22, h_2, j_2, i_2 = Polygon(J_2, I_2, H_2)