A_1 = (-0.06, -1.02)
B_1 = (6.94, -1.06)
a = Segment(A_1, B_1)
b = OrthogonalLine(A_1, a)
c = OrthogonalLine(B_1, a)
C = Point(b)
d = OrthogonalLine(C, b)
D = Intersect(d, c)
poly1, a_1, c_1, d_1, b_1 = Polygon(A_1, C, D, B_1)
e = Segment(C, B_1)
P = Point(e)
f = OrthogonalLine(P, a)
g = OrthogonalLine(P, d_1)
F = Intersect(f, c_1)
G = Intersect(f, a)
H = Intersect(g, d_1)
I = Intersect(g, a_1)
B, f_1, e_1, h, d_2 = Polygon(F, P, H, D)
A, a_2, g_1, e_2, i = Polygon(A_1, G, P, I)