N = (1, 0)
h: y = y(N)
B = Point(Segment[N, (x(N) + 10, y(N))])
F = Point(Segment[B, (x(B) + 7, y(N))])
f = Segment(N, B)
P = (-1, 4)
W: (x(P) + Distance[N, B], y(P))
veelhoek2, j, l, m = Polygon(N, B, W)
Z: (x(F) + j, y(N))
veelhoek3, n_2, p_1, w_1 = Polygon(P, W, N)
U = Point(Segment[W, (x(W) + 12, y(P))])
B_1: (x(U) + j, y(P))
veelhoek1, u, q_1, z_1 = Polygon(F, Z, U)
veelhoek4, b_1, u_1, z_2 = Polygon(U, Z, B_1)
H = (-2.9975064036240484, -1.2038003301714915)
g: y = y(P)