A = (-1, -1)
C = Point(Segment[A, (x(A) + 15, y(A))])
D = Point(Segment[C, (x(C) + 15, y(A))])
E = Point(Segment[D, (x(D) + 15, y(A))])
F = Point(Segment[A, (x(A), y(A) + 8)])
G: (x(C), y(F))
H: (x(D), y(F))
I: (x(E), 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)
veelhoek3, d_3, e_1, i_1, h_2 = Polygon(D, E, I, H)
J = (-4.0387779873394996, -2.6742566943674935)