Bougez-moi

α = 0 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
E_1 = (7, 2)
N = (5, 0)
N' = Mirror(N, E_1)
f = Segment(N, E_1)
M = (0, 0)
k = Line(M, f)
d_4 = Circle(M, N)
a = Segment(M, N)
c = OrthogonalLine(N, a)
b = OrthogonalLine(M, a)
Q = Intersect(d_4, b, 2)
m_4 = Line(Q, f)
e_4 = OrthogonalLine(Q, b)
F = Intersect(c, e_4)
l = Line(F, f)
i = Segment(N, F)
n_4 = Line(E_1, i)
b_3 = Line(N', n_4)
G = Intersect(l, n_4)
j = OrthogonalLine(E_1, i)
a_3 = Line(N', j)
P = Intersect(j, k)
p = Line(P, n_4)
H = Intersect(m_4, p)
b_1 = Segment(H, G)
c_3 = Circle(N', b_1)
S = Intersect(c_3, a_3, 1)
e_3 = Line(S, b_3)
d_3 = Circle(S, b_1)
W = Intersect(d_3, e_3, 2)
W' = Rotate(W, α, S)
g = Segment(M, Q)
h = Segment(Q, F)
q = Segment(Q, H)
r = Segment(F, G)
s = Segment(E_1, G)
t = Segment(P, E_1)
a_1 = Segment(P, H)
c_1 = Segment(P, M)
B_1 = Midpoint(q)
A_1 = Midpoint(r)
C_1 = Midpoint(g)
D = Midpoint(a)
F' = Rotate(F, -α, N)
β = Angle(F', N, F)
d_1 = Segment(N, F')
e_1 = OrthogonalLine(F', d_1)
f_1 = Circle(F', N)
I = Intersect(f_1, e_1, 2)
Q' = Rotate(I, -α, F')
γ = Angle(Q', F', I)
g_1 = Segment(F', Q')
h_1 = Line(E_1, d_1)
i_1 = Line(F', f)
G' = Intersect(h_1, i_1)
j_1 = Segment(E_1, G')
k_1 = Segment(G', F')
l_1 = Line(Q', k_1)
m_1 = Line(G', g_1)
n_1 = Line(Q', k_1)
H' = Intersect(m_1, n_1)
p_1 = Segment(G', H')
q_1 = Segment(Q', H')
Q'' = Rotate(Q, α, M)
δ = Angle(Q, M, Q'')
r_1 = Segment(Q'', M)
s_1 = Line(P, r_1)
t_1 = Line(Q'', c_1)
H'' = Intersect(s_1, t_1)
a_2 = Segment(Q'', H'')
b_2 = Segment(H'', P)
c_2 = Line(N, E_1)
J = Point(c_2)
d_2 = Circle(E_1, G)
K = Intersect(d_2, j, 1)
e_2 = Circle(K, E_1)
j_2 = OrthogonalLine(K, j)
T = Intersect(e_2, j_2, 1)
T' = Rotate(T, -α, K)
ζ = Angle(T', K, T)
f_2 = Line(T', K)
L = Intersect(n_4, f_2)
g_2 = Line(L, N)
h_2 = Line(T', j)
O = Intersect(n_4, h_2)
i_2 = Line(O, c_2)
F'' = Intersect(g_2, i_2)
k_2 = Line(F'', a)
l_2 = Segment(F'', N)
m_2 = Line(M, l_2)
Q''' = Intersect(k_2, m_2)
n_2 = Segment(Q''', M)
p_2 = Segment(Q''', F'')
E' = Mirror(E_1, N)
q_2 = Line(E', a)
R = Intersect(k, q_2)
r_2 = Segment(R, M)
s_2 = Segment(R, E')
t_2 = Segment(E', N)
f_3 = Line(W', S)
V = Intersect(b_3, f_3)
g_3 = Line(E_1, V)
ε = Angle(W, S, W')
G'' = Intersect(i_2, g_3)
h_3 = Segment(E_1, G'')
i_3 = Line(P, h_3)
j_3 = Line(G'', b_1)
H''' = Intersect(i_3, j_3)
k_3 = Segment(P, H''')
l_3 = Segment(H''', G'')
m_3 = Segment(E_1, N')
n_3 = Line(N', t)
p_3 = Line(P, m_3)
U = Intersect(n_3, p_3)
q_3 = Segment(P, U)
r_3 = Segment(U, N')
A = Midpoint(k_1)
B = Midpoint(q_1)
B'' = Midpoint(a_2)
C = Midpoint(r_1)
C' = Midpoint(r_2)
poly1, c'', b'', q'' = Polygon(B'', Q'', C)
poly2, d_5, c', m_5 = Polygon(C', M, D)
poly3, e_5, d_6, n = Polygon(D, N, E_1)
poly4, g'_1, e, a'_1 = Polygon(E_1, A, G')
poly5, a', g', h', b' = Polygon(A, G', H', B)
C_2 = Midpoint(n_2)
poly6, d, c'''', m = Polygon(C_2, M, D)
E = Intersect(f, t)