Chapitre 2 - Activité 2 
Variations d'une aire

Déplacer le point M à la souris 
sur le segment [AB].

A = (0, 0)
B = (7, 0)
C_1 = Midpoint(A, B)
C = Circle(C_1, A)
a = Segment(A, B)
M = Point(a)
b = OrthogonalLine(M, a)
Q, P = Intersect(C, b)
poly1, q, p, a_1 = Polygon(P, A, Q)
texte3: "Aire de APQ = " + poly1
texte2: "x = AM = " + (Distance[A, M])