A = (-1, 0)
F = Point(Segment[A, (x(A), y(A) + 8)])
C = Point(Segment[A, (x(A) + Distance[A, F], y(A))])
G: (x(C), y(F))
D: (x(A) + Distance[A, F], y(A))
H: (x(D), y(F))
veelhoek1, a_1, c_2, g_1, f_1 = Polygon(A, C, G, F)
veelhoek2, c_3, d_2, h_1, g_2 = Polygon(C, D, H, G)
E = (-4.0387779873394996, -1.6782579255155297)