para = 1.227 (slider from 0 to 10, step 0.001)
Faktor = 1.993306891 (slider from -5 to 5, step 1)
O = Point(xAxis)
A = Intersect(xAxis, yAxis)
u = Vector(A, O)
A' = Translate(A, u)
A'' = Translate(A', u)
c = Circle(A, Faktor / 2)
B = Point(xAxis)
Vieleck1, f, g, h, i, j, C, D, E = Polygon(A, B, 5)
k = Segment(E, C)
F = Intersect(c, k, 2)
Vieleck2, l, m, n, G = Polygon(F, A, 3)
p = Line(G, l)
I = Intersect(f, p)
I' = Translate(I, u)
I'' = Mirror(I', O)
I''' = Translate(I'', u)
H = Intersect(k, p)
q = Segment(I, H)
r = Segment(A, G)
s = Segment(G, F)
J = Midpoint(E, C)
t = Line(J, h)
K = Intersect(t, i)
a = Segment(J, K)
b = Line(D, g)
L = Intersect(a, b)
d = Segment(L, D)
M = Midpoint(A, E)
e = Line(M, d)
N = Intersect(k, e)
f_1 = Segment(M, N)
Vieleck3, a_1, g_1, f_2, n_1, m_1 = Polygon(A, G, F, N, M)
G' = Translate(G, u)
F' = Translate(F, u)
N' = Translate(N, u)
M' = Translate(M, u)
Vieleck3', a', g', f', n', m' = Polygon(A', G', F', N', M')
d1, e_1, m_2, n_2 = Polygon(M, N, E)
M'_1 = Translate(M, u)
N'_1 = Translate(N, u)
E' = Translate(E, u)
P = Mirror(M'_1, M')
Q = Mirror(N'_1, M')
E'' = Mirror(E', M')
d2, g_2, a_2, i_1 = Polygon(A, I, G)
A'_1 = Translate(A, u)
G'_1 = Translate(G, u)
d2', g'_1, a'_1, i' = Polygon(A'_1, I', G'_1)
R = Mirror(A'_1, O)
S = Mirror(G'_1, O)
d2'', s_1, r_1, i'' = Polygon(R, I'', S)
v = Vector(I, I'')
v1, i_2, b_1, c_1, h_1 = Polygon(I, B, C, H)
I'_1 = Translate(I, v)
B' = Translate(B, v)
C' = Translate(C, v)
H' = Translate(H, v)
v1', i'_1, b', c', h' = Polygon(I'_1, B', C', H')
d3, f_3, g_3, h_2 = Polygon(G, H, F)
G'_2 = Translate(G, u)
H'_1 = Translate(H, u)
F'_1 = Translate(F, u)
d3', f'_1, g'_2, h'_1 = Polygon(G'_2, H'_1, F'_1)
T = Mirror(G'_2, F')
U = Mirror(H'_1, F')
V = Mirror(F'_1, F')
d3'', v_1, t_1, u_1 = Polygon(T, U, V)
d4, k_1, e_2, j_1 = Polygon(E, J, K)
v2, j_2, c_2, d_1, l_1 = Polygon(J, C, D, L)
J' = Translate(J, v)
C'_1 = Translate(C, v)
D' = Translate(D, v)
L' = Translate(L, v)
v2', j', c'_1, d', l' = Polygon(J', C'_1, D', L')
J'' = Rotate(J', 108°, C')
W = Rotate(C'_1, 108°, C')
D'' = Rotate(D', 108°, C')
L'' = Rotate(L', 108°, C')
v2'', j'', w, d'', l'' = Polygon(J'', W, D'', L'')
d5, k_2, l_2, d_2 = Polygon(L, D, K)
w_1 = Vector(J, J'')
E'_1 = Translate(E, w_1)
J'_1 = Translate(J, w_1)
K' = Translate(K, w_1)
d4', k', e'_1, j'_1 = Polygon(E'_1, J'_1, K')
Z = Rotate(E'_1, -72°, J'')
A_1 = Rotate(J'_1, -72°, J'')
K'' = Rotate(K', -72°, J'')
d4'', k'', z_1, a_3 = Polygon(Z, A_1, K'')
p_1 = Vector(K, K'')
L'_1 = Translate(L, p_1)
D'_1 = Translate(D, p_1)
K'_1 = Translate(K, p_1)
d5', k'_1, l'_1, d'_1 = Polygon(L'_1, D'_1, K'_1)
B_1 = Rotate(L'_1, 108°, K'')
C_1 = Rotate(D'_1, 108°, K'')
D_1 = Rotate(K'_1, 108°, K'')
d5'', d_3, b_2, c_3 = Polygon(B_1, C_1, D_1)
M'_2 = Translate(M, u)
N'_2 = Translate(N, u)
E'_2 = Translate(E, u)
d1', e'_2, m'_2, n'_2 = Polygon(M'_2, N'_2, E'_2)
E_1 = Mirror(M'_2, M')
F_1 = Mirror(N'_2, M')
G_1 = Mirror(E'_2, M')
d1'', g_4, e_3, f_4 = Polygon(E_1, F_1, G_1)
G'' = Translate(G', u)
F'' = Translate(F', u)
N'' = Translate(N', u)
M'' = Translate(M', u)
Vieleck3'', a'', g'', f'', n'', m'' = Polygon(A'', G'', F'', N'', M'')
par = 2.7227136331111543 rad (slider from 0 to 180°, step 0.001°)
R' = Translate(R, u)
S' = Translate(S, u)
d2''', s', r', i''' = Polygon(R', I''', S')
R'' = Rotate(R', par, A'')
S'' = Rotate(S', (180° * (para - sin(((2 * π) * para)) / 2 / π)), A'')
H_1 = Rotate(I''', (180° * (para - sin(((2 * π) * para)) / 2 / π)), A'')
d6, s'', r'', h_3 = Polygon(R'', H_1, S'')
T' = Translate(T, u)
U' = Translate(U, u)
V' = Translate(V, u)
d3''', v', t', u' = Polygon(T', U', V')
T'' = Rotate(T', (180° * (para - sin(((2 * π) * para)) / 2 / π)), F'')
U'' = Rotate(U', (180° * (para - sin(((2 * π) * para)) / 2 / π)), F'')
V'' = Rotate(V', par, F'')
d7, v'', t'', u'' = Polygon(T'', U'', V'')
q_1 = Vector(I'', H_1)
I_1 = Translate(I'_1, q_1)
B'' = Translate(B', q_1)
C'' = Translate(C', q_1)
H'' = Translate(H', q_1)
v1'', i_3, b'', c'', h'' = Polygon(I_1, B'', C'', H'')
u_2 = Vector(C', C'')
J''' = Translate(J'', u_2)
W' = Translate(W, u_2)
D''' = Translate(D'', u_2)
L''' = Translate(L'', u_2)
v2''', j''', w', d''', l''' = Polygon(J''', W', D''', L''')
J_1 = Rotate(J''', (((7 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), C'')
W'' = Rotate(W', (7 / 5 * par), C'')
K_1 = Rotate(D''', (((7 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), C'')
L_1 = Rotate(L''', (((7 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), C'')
v3, j_3, w'', k_3, l_3 = Polygon(J_1, W'', K_1, L_1)
M_1 = Translate(E_1, u)
N_1 = Translate(F_1, u)
O_1 = Translate(G_1, u)
d1''', o_1, m_3, n_3 = Polygon(M_1, N_1, O_1)
P_1 = Rotate(M_1, par, M'')
Q_1 = Rotate(N_1, (180° * (para - sin(((2 * π) * para)) / 2 / π)), M'')
R_1 = Rotate(O_1, (180° * (para - sin(((2 * π) * para)) / 2 / π)), M'')
d8, r_2, p_2, q_2 = Polygon(P_1, Q_1, R_1)
v_2 = Vector(J'', J_1)
Z' = Translate(Z, v_2)
S_1 = Translate(A_1, v_2)
K''' = Translate(K'', v_2)
d4''', k''', z', s_2 = Polygon(Z', S_1, K''')
T_1 = Rotate(S_1, (3 / 10 * par), J_1)
Z'' = Rotate(Z', (((2 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), J_1)
U_1 = Rotate(S_1, (2 / 5 * par), J_1)
V_1 = Rotate(K''', (((2 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), J_1)
d9, v_3, z'', u_3 = Polygon(Z'', U_1, V_1)
w_2 = Vector(K'', V_1)
W_1 = Translate(B_1, w_2)
Z_1 = Translate(C_1, w_2)
A_2 = Translate(D_1, w_2)
d5''', a_4, w_3, z_2 = Polygon(W_1, Z_1, A_2)
B_2 = Rotate(W_1, (((-3 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), V_1)
C_2 = Rotate(Z_1, (((-3 / 5 * 180))° * (para - sin(((2 * π) * para)) / 2 / π)), V_1)
D_2 = Rotate(A_2, (-3 / 5 * par), V_1)
d10, d_4, b_3, c_4 = Polygon(B_2, C_2, D_2)