A = (-1, 0)
C = Point(Segment[A, (x(A) + 8, y(A))])
I: (x(A), y(A) + Distance[A, C])
G: (x(C), y(I))
D = Point(Segment[C, (x(C) + 8, y(A))])
veelhoek1, l, m, n, p = Polygon(A, C, G, I)
H: (x(D), y(I))
veelhoek2, c_3, d_2, h_1, g_2 = Polygon(C, D, H, G)
F = (-5.034776893502275, -2.6941766697445284)