A = (-4, -3)
B = Point(Segment[(x(A) + 3, y(A)), (x(A) + 10, y(A))])
E = Midpoint(A, B)
i = Segment(E, A)
f = Segment(A, B)
F: (9, y(A))
Z: (6.5, y(A))
D = (10, 6)
C = (11, 3)
B_1 = (6, 2)
A_1 = (7, 5)
veelhoek1, a, b, c, d = Polygon(A_1, B_1, C, D)
L: (x(Z) + 1, y(Z))
G_1: (6.09, -1.75)
P: (x(F) + (((i^(2) * (y(G_1) - y(Z))) - veelhoek1) / (y(G_1) - y(Z)))^(0.5), y(A))
H_1: (x(G_1) + Distance[Z, L], y(G_1))
veelhoek8, s, m_2, n_2, p_2 = Polygon(Z, L, H_1, G_1)
h = Line(E, p_2)
J = Intersect(h, y = y(E) + (i * (y(G_1) - y(Z))))
n = Line(F, p_2)
Q = Intersect(y = y(F) + ((y(G_1) - y(Z)) * (((i^(2) * (y(G_1) - y(Z))) - veelhoek1) / (y(G_1) - y(Z)))^(0.5)), n)
R: (x(Q) + Distance[F, P], y(Q))
veelhoek2, f_2, p_1, r_1, q_1 = Polygon(F, P, R, Q)
L_1: (x(J) + f_2, y(J))
T: (x(E) + f_2, y(A))
b_2 = Segment(E, B)
d_1 = Circle(J, q_1)
l_1 = Segment(J, E)
U = Intersect(d_1, Segment[E, J])
V: (x(U) + f_2, y(U))
stap = 9 (slider from 0 to 9, step 1)
a_2 = Segment(A, B)
O: (x(L_1) + Distance[T, B], y(J))
g_1 = Segment(J, O)
t = Segment(J, E)
S: (x(J) - Distance[A, E], y(J))
j_1 = Segment(A, S)
k_1 = Segment(J, S)
n_1 = Segment(U, V)
s_1 = Segment(J, U)
t_1 = Segment(U, E)
veelhoek3, u, v, l_3, j_3 = Polygon(U, V, L_1, J)
i_2 = Segment(J, B)
b_1 = Segment(B, V)
h_1 = Segment(O, B)
M_1: (x(V) + Distance[T, B], y(U))
veelhoek4, t_2, b_3, m_3, v_1 = Polygon(T, B, M_1, V)
veelhoek5, v_2, m_4, o, l_4 = Polygon(V, M_1, O, L_1)
veelhoek6, e_3, t_3, v_3, u_1 = Polygon(E, T, V, U)
q_2 = Segment(T, B)
O_1: (x(U) - Distance[A, E], y(U))
s_2 = Segment(S, O_1)
g_3 = Segment(O_1, A)
h_3 = Segment(O_1, U)
P_1 = (-5.88, -3.68)