A = (-2, -1)
J = Point(Segment[A, (x(A) + 8, y(A))])
H: (x(A), y(A) + Distance[A, J])
k = Segment(A, J)
D = Point(k)
C: (x(A), y(A) + Distance[A, D])
K = Mirror(D, J)
E: (x(D), y(C))
G: (x(J), y(C))
F: (x(D), y(H))
I: (x(J), y(H))
veelhoek1, a_1, d_1, e_1, c_2 = Polygon(A, D, E, C)
veelhoek2, g_1, j_1, b_1, h_2 = Polygon(D, J, G, E)
veelhoek3, e_3, f_1, h_1, c_1 = Polygon(E, F, H, C)
L: (x(K), y(C))
veelhoek5, k_1, l_1, s_1, t_1 = Polygon(J, K, L, G)
veelhoek4, e_4, g_2, i_1, f_2 = Polygon(E, G, I, F)
m = Segment(I, A)
B_1 = (-5.333576565351119, -2.7140966451215838)