para = 1.715 (slider from 0 to 2, step 0.005)
s = 1.519671371303185 (slider from -5 to 5, step 1)
J = Point(xAxis)
A = Intersect(xAxis, yAxis)
B = Point(yAxis)
E = Midpoint(A, B)
d = Circle(E, s / 2)
Vieleck1, f, g, h, i, C, D = Polygon(A, B, 4)
H = Intersect(d, i)
F = Midpoint(D, C)
α = Angle(E, H, F)
c = Circle(F, s / 2)
G = Intersect(c, g)
k = Segment(E, G)
k_1 = Circle(J, k)
N = Intersect(k_1, xAxis, 2)
j = Segment(H, E)
l = Segment(G, F)
m = Segment(F, H)
Vieleck2, n, p, q, I = Polygon(G, F, 3)
v1, f_1, i_1, g_1, c_1 = Polygon(F, I, G, C)
v2, d_1, h_1, i_2, f_2 = Polygon(D, H, I, F)
d1, e, h_2, a = Polygon(H, A, E)
v3, i_3, e_1, b, g_2 = Polygon(I, E, B, G)
H' = Mirror(H, m)
F' = Mirror(F, m)
H'_1 = Mirror(H, j)
E' = Mirror(E, j)
E'_1 = Mirror(E, k)
B' = Mirror(B, k)
G' = Mirror(G, k)
F'_1 = Mirror(F, l)
G'_1 = Mirror(G, l)
r = Circle(J, Segment[H, E])
K, L = Intersect(r, xAxis)
p_1 = Circle(L, Segment[E, A])
q_1 = Circle(J, Segment[H, A])
s_1 = Circle(L, Segment[E, I])
t_2 = Circle(J, Segment[H, I])
N' = Rotate(N, 180° - α + (360° * ((51051 / 2048 * para^(19)) - (969969 / 2048 * para^(18)) + (8387379 / 2048 * para^(17)) - (43648605 / 2048 * para^(16)) + (152285133 / 2048 * para^(15)) - (375378003 / 2048 * para^(14)) + (670696257 / 2048 * para^(13)) - (875882007 / 2048 * para^(12)) + (207661545 / 512 * para^(11)) - (8729721 / 32 * para^(10)) + (15842827 / 128 * para^(9)) - (8729721 / 256 * para^(8)) + (138567 / 32 * para^(7)))), J)
O = Midpoint(K, N')
J' = Mirror(J, O)
r_1 = Circle(J', N')
t_1 = Circle(N', J')
P, M = Intersect(r_1, t_1)
c_2 = Circle(J', 1 / 2)
d_2 = Circle(N', e)
Q = Intersect(c_2, d_2, 2)
e_2 = Circle(K, b)
R = Intersect(c_2, e_2, 2)
k_2 = Circle(K, h_1)
S = Intersect(r_1, k_2, 1)
c_3 = Circle(N', b)
d_3 = Circle(J, 1 / 2)
T = Intersect(c_3, d_3, 1)
e_3 = Circle(J, i_3)
U = Intersect(t_1, e_3, 2)
f_3 = Circle(J, 1 / 2)
g_3 = Circle(K, e)
V = Intersect(f_3, g_3, 1)
l_1 = Line(K, J)
h_3 = Circle(N', 1)
v4, q_2, n', m_1, j' = Polygon(Q, N', M, J')
W = Intersect(c_3, d_3, 2)
Z, A_1 = Intersect(g_3, d_3)
B_1 = Intersect(c_2, e_2, 1)
v7, j'_2, s_3, k_5, b_1 = Polygon(J', S, K, B_1)
C_1, D_1 = Intersect(c_3, d_3)
v5, c_4, j_3, u_1, n'_2 = Polygon(C_1, J, U, N')
d2, z_1, k_3, j_1 = Polygon(K, J, Z)