A = (1, -4)
B = (1, 1)
C = (8, 1)
D = (8, -4)
poly1, a, b, c, d = Polygon(A, B, C, D)
E = Point(poly1)
e = Segment(B, E)
f = Circle(C, e)
g = Circle(D, e)
h = Circle(A, e)
F = Intersect(f, c, 1.0)
G = Intersect(g, d, 1.0)
H = Intersect(h, a, 1.0)
poly2, h_1, e_1, f_1, g_1 = Polygon(H, E, F, G)
Textepoly2: "Aire " + (Name[H]) + (Name[E]) + (Name[F]) + (Name[G]) + " = " + poly2