A = (0.86, -2.54)
B = (7.12, -1.46)
poly1, a, b, c, d, C, D = Polygon(A, B, 4)
E = Midpoint(A, B)
e = Circle(E, B)
M = Point(e)
f = Line(B, M)
g = Line(M, A)
h = Line(D, f)
i = Line(C, g)
Q = Intersect(g, h)
N = Intersect(f, i)
P = Intersect(h, i)
poly2, f_1, h_1, i_1, g_1 = Polygon(M, N, P, Q)
Textepoly2: "Aire " + (Name[M]) + (Name[N]) + (Name[P]) + (Name[Q]) + " = " + poly2
Textepoly1: "Aire = " + poly1
quot: poly2 / poly1
α = Angle(M, A, B)
val: 1 + sin(2 * α)