A = (3.1126490009699337, -0.34747427740058195)
B = (10.861129000969935, -0.373694277400582)
a = Segment(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
c = OrthogonalLine(C, b)
d = OrthogonalLine(B, a)
D = Intersect(c, d)
polígono1, b_1, a_1, c_1, d_1 = Polygon(B, A, C, D)