N = (2, -1)
C = Point(Segment[N, (x(N) + 7, y(N))])
K = (0, 3)
W: (x(K) + Distance[N, C], y(K))
veelhoek2, i, j, k = Polygon(N, C, W)
A = (15, -1)
Q = Point(Segment[(x(W), y(K)), (x(W) + 7, y(K))])
a = Segment(N, Q)
J = Intersect(j, a)
veelhoek3, b, f_1, g_1 = Polygon(K, W, N)
A_1: (x(Q) + i, y(K))
veelhoek1, l, m, n = Polygon(C, Q, A_1)
veelhoek4, p, q, s = Polygon(C, J, Q)
M = (-2.9793973326029097, -2.598198606564228)
g: y = y(K)