A = (-2, 0)
J = Point(Segment[A, (x(A) + 8, y(A))])
D = Point(Segment[A, (x(A) + Distance[A, J], y(A))])
C: (x(A), y(A) + Distance[A, D])
E: (x(D), y(C))
G: (x(J), y(C))
H: (x(A), y(A) + Distance[A, J])
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, d_2, j_1, g_1, e_2 = Polygon(D, J, G, E)
veelhoek3, e_3, f_1, h_1, c_1 = Polygon(E, F, H, C)
veelhoek4, e_4, g_2, i_1, f_2 = Polygon(E, G, I, F)
m = Segment(A, I)
K = (4, -2)
L: (5.5, -2)
M = (7, -2)
N = (7, -3)
O: (5.5, -3)
P = (4, -3)
l = Segment(K, L)
n = Segment(P, O)
p = Segment(O, N)
q = Segment(M, L)
Q = (-5.034776893502272, -1.7180978762696069)