A = Intersect(xAxis, yAxis)
B = (1, 0)
c = Semicircle(A, B)
C = Point(c)
Vieleck1, f, g, h, i, D, E = Polygon(A, C, 4)
Vieleck2, j, k, l, m, F, G = Polygon(C, B, 4)
Vieleck3, n, p, q, r, H, I = Polygon(B, A, 4)
t = 4.1381756564785555 (slider from 0° to 360°, step 0.1°)
J = Midpoint(C, E)
a = Line(J, n)
b = Line(J, p)
s: cos(t)
e = Line(J, p)
L = Intersect(f, e)
K = Midpoint(H, I)
d = Line(J, n)
M = Intersect(g, d)
f_1 = Segment(L, M)
g_1 = OrthogonalLine(J, f_1)
h_1 = OrthogonalLine(C, f_1)
N = Intersect(g_1, f_1)
O = Intersect(h_1, f_1)
J' = Dilate(J, s, N)
C' = Dilate(C, s, O)
v1, l_1, c', m_1, j' = Polygon(L, C', M, J')
P = Midpoint(K, L)
L' = Dilate(L, s, P)
u = Vector(L, L')
L'_1 = Translate(L, u)
C'' = Translate(C', u)
M' = Translate(M, u)
J'' = Translate(J', u)
v1', l'_1, c'', m', j'' = Polygon(L'_1, C'', M', J'')
Q = Midpoint(H, B)
J'_1 = Translate(J, u)
R = Rotate(L'_1, 90°, J'_1)
C''' = Rotate(C'', 90°, J'_1)
M'' = Rotate(M', 90°, J'_1)
J''' = Rotate(J'', 90°, J'_1)
v1'', r_1, c''', m'', j''' = Polygon(R, C''', M'', J''')
R' = Rotate(R, 90°, J'_1)
S = Rotate(C''', 90°, J'_1)
M''' = Rotate(M'', 90°, J'_1)
T = Rotate(J''', 90°, J'_1)
v1''', r', s_1, m''', t_1 = Polygon(R', S, M''', T)
R'' = Rotate(R', 90°, J'_1)
S' = Rotate(S, 90°, J'_1)
U = Rotate(M''', 90°, J'_1)
T' = Rotate(T, 90°, J'_1)
v2, r'', s', u_1, t' = Polygon(R'', S', U, T')
V = Midpoint(B, G)
W = Midpoint(H, A)
A' = Mirror(A, n)
C'_1 = Mirror(C, n)
f' = Segment(A', C'_1)
i_1 = Line(W, f')
j_1 = Rotate(i_1, 90°, Q)
k_1 = Rotate(j_1, 90°, Q)
n_1 = Rotate(k_1, 90°, Q)
Z = Intersect(i_1, j_1)
A_1 = Intersect(k_1, j_1)
B_1 = Intersect(n_1, k_1)
C_1 = Intersect(i_1, n_1)
p_1 = Segment(Z, A_1)
q_1 = Segment(A_1, B_1)
a_1 = Segment(B_1, C_1)
b_1 = Segment(C_1, Z)
D_1 = Midpoint(Z, F)
E_1 = Midpoint(A_1, B)
c_1 = Line(D_1, E_1)
d_1 = OrthogonalLine(Z, c_1)
e_1 = OrthogonalLine(F, c_1)
F_1 = Intersect(c_1, d_1)
G_1 = Intersect(e_1, c_1)
v = Vector(G_1, F_1)
f_2 = OrthogonalLine(B, c_1)
g_2 = OrthogonalLine(G, c_1)
h_2 = OrthogonalLine(C, c_1)
H_1 = Intersect(h_2, c_1)
I_1 = Intersect(g_2, c_1)
J_1 = Intersect(f_2, c_1)
B' = Dilate(B, s, J_1)
G' = Dilate(G, s, I_1)
C'_2 = Dilate(C, s, H_1)
F' = Dilate(F, s, G_1)
v3, b', f'_1, g', c'_2 = Polygon(B', F', G', C'_2)
B'' = Translate(B', Vector[((1 / 2 * (1 - s)) * v)])
F'' = Translate(F', Vector[((1 / 2 * (1 - s)) * v)])
G'' = Translate(G', Vector[((1 / 2 * (1 - s)) * v)])
K_1 = Translate(C'_2, Vector[((1 / 2 * (1 - s)) * v)])
v3', b'', f'', g'', k_2 = Polygon(B'', F'', G'', K_1)
Vieleck4, i_2, j_2, l_2, m_2, L_1, M_1 = Polygon(L'_1, M', 4)