A = (1, -5)
B = (11, -5)
C = (11, 5)
D = (1, 5)
poly1, a, b, c, d = Polygon(A, B, C, D)
L = Point(a)
distanceAL = Distance(A, L)
TexteAL: "\overline{" + (Name[A]) + (Name[L]) + "} \, = \, " + distanceAL
e = Circle(D, distanceAL)
P = Intersect(e, d)
poly2, p, l, c_1 = Polygon(L, C, P)
Textepoly2: "Aire " + (Name[L]) + (Name[C]) + (Name[P]) + " = " + poly2