A = Point(xAxis)
A' = Point(xAxis)
a = Segment(A, A')
O = Intersect(xAxis, yAxis)
c = Circle(O, A)
H = Point(a)
d = OrthogonalLine(H, xAxis)
M, M' = Intersect(c, d)
P, m, m', b = Polygon(M', A, M)
TexteP: "Aire " + (Name[M']) + (Name[A]) + (Name[M]) + " = " + P