N = (3, -2)
E = Point(Segment[N, (x(N) + 14, y(N))])
P = (2, 2)
veelhoek1, f, g_1, h_1 = Polygon(N, E, P)
k = Line(P, f)
e = Circle(P, Distance[N, E] - 1)
F, G = Intersect(e, k)
g = Ray(N, G)
T = Intersect(g_1, g)
veelhoek3, p, q, r = Polygon(E, T, G)
veelhoek2, t, b, f_1 = Polygon(P, T, G)
s = Line(E, h_1)
U = Intersect(s, g)
veelhoek4, l, m, n = Polygon(G, E, U)
h = Segment(P, U)
H = (-2.997506403624059, -3.739069923612842)