A = (-1, 0)
B = Point(Segment[A, (x(A) + 14, y(A))])
C = Midpoint(B, A)
J = Point(Segment[C, B])
E: (5.91, 3)
L: (x(E) - Distance[B, J], y(E))
f = Segment(B, A)
D: (x(L) - Distance[C, J], y(E))
l = Segment(D, B)
F = Intersect(l, Segment[J, L])
N: (x(F) + Distance[B, J], y(F))
veelhoek1, b, j_1, n_1, p_1 = Polygon(J, B, N, F)
G: (x(D) - Distance[A, C], y(E))
H: (x(F) - Distance[C, J], y(F))
I: (x(H) - Distance[A, C], y(F))
veelhoek2, j_2, c_1, h_2, f_2 = Polygon(J, C, H, F)
veelhoek3, c_2, a, i_1, h_3 = Polygon(C, A, I, H)
p = Segment(D, G)
q = Segment(G, I)
veelhoek4, e, k_1, l_1, m_1 = Polygon(F, N, E, L)
veelhoek5, t, f_1, g_1, h_1 = Polygon(F, H, D, L)
R = (-3.26, -0.9)