A = (37.54681861097817, 6.703535580480396)
B = (52.53303299323269, 6.625278586317187)
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
D = Point(b)
d = OrthogonalLine(D, b)
C = Intersect(c, d)
e = Segment(A, C)
E = Point(e)
f = Line(E, b)
g = Line(E, a)
F = Intersect(f, a)
H = Intersect(b, g)
G = Intersect(d, f)
K = Intersect(c, g)
đa giác1, a_1, b_1, d_1, c_1 = Polygon(A, B, C, D)
h = Segment(F, G)
i = Segment(H, K)
đa giác2, f_1, b_2, k, e_1 = Polygon(F, B, K, E)
đa giác3, h_1, e_2, g_1, d_2 = Polygon(H, E, G, D)