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

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