Déplacer le point M. 

O = (0, 0)
c = Circle(O, 2.0)
R, S = Intersect(c, xAxis)
a = Segment(O, S)
M = Point(a)
b = OrthogonalLine(M, a)
C, B = Intersect(c, b)
poly1, o, b_1, c_1 = Polygon(B, C, O)
Textepoly1: "Aire " + (Name[B]) + (Name[C]) + (Name[O]) + " = " + poly1
d = Segment(R, O)
texte1: "OM = " + (Distance[O, M])
M' = (1.4142135623730951, 0)