K: (6.22, -0.75)
A = (-3, -2)
E_1: (6, y(A))
f_1 = Segment(K, E_1)
F_1: (x(E_1) + 1, y(E_1))
N = (4, 2)
A_1 = (4, 6)
B_1 = (2, 4)
C = (8, 3)
D = (9, 5)
veelhoek1, a, b, c, d, b_2 = Polygon(A_1, B_1, N, C, D)
B = Point(Segment[A, (x(A) + 8, y(A))])
E = Midpoint(A, B)
l = Line(E, f_1)
t = Segment(E_1, F_1)
L_1: (x(K) + Distance[E_1, F_1], y(K))
g_1 = Segment(K, L_1)
h_1 = Segment(L_1, F_1)
P: (8, y(A))
j_1 = Line(P, f_1)
stap = 7 (slider from 0 to 7, step 1)
n_2 = Segment(A, B)
p = Segment(A, E)
J = Intersect(l, y = y(A) + (p * (y(K) - y(E_1))))
L: (x(J) + Distance[E, B], y(J))
veelhoek2, k_1, m_1, n_1, p_1 = Polygon(E, B, L, J)
q_1 = Segment(E, B)
Q = Intersect(j_1, y = y(E_1) + ((y(K) - y(E_1)) * (((p^(2) * (y(K) - y(E_1))) + veelhoek1) / (y(K) - y(E_1)))^(0.5)))
S: (x(P) + (((p^(2) * (y(K) - y(E_1))) + veelhoek1) / (y(K) - y(E_1)))^(0.5), y(E_1))
s_1 = Segment(Q, P)
U: (x(Q) + Distance[P, S], y(Q))
b_1 = Segment(U, S)
e_1 = Segment(U, Q)
V_2: (x(E) + e_1, y(A))
d_2 = Circle(J, s_1)
Z, C_1 = Intersect(d_2, l)
D_1: (x(L) + Distance[B, V_2], y(J))
G_1: (x(Z) + Distance[E, B], y(Z))
K_1: (x(G_1) + Distance[B, V_2], y(Z))
f_2 = Segment(J, K_1)
veelhoek3, g_2, p_2, q_2, r_2 = Polygon(E, B, G_1, Z)
veelhoek4, b_3, v_2, d_3, l_3 = Polygon(B, V_2, D_1, L)
veelhoek5, h_2, s_2, t_2, a_2 = Polygon(G_1, K_1, V_2, B)
W: (x(Z) - Distance[A, E], y(Z))
e_2 = Segment(W, A)
f_3 = Segment(W, Z)
M_1 = (-5.021482277121396, -5.02685284640174)
t_1 = Segment(S, P)