A = (4.117996333566031, 3.375525796150918)
B = (8.53367161614612, 3.838459495131089)
a = Segment(A, B)
b = OrthogonalLine(A, a)
C = Point(b)
c = Segment(C, A)
d = Segment(C, B)
poly1, c_1, b_1, e, f, D, E = Polygon(C, B, 4.0)
poly2, b_2, a_1, g, h, F, G = Polygon(B, A, 4.0)
poly3, a_2, c_2, i, j, H, I = Polygon(A, C, 4.0)
Textepoly2: "Aire = " + poly2
Textepoly3: "Aire = " + poly3
Textepoly1: "Aire = " + poly1