Déplacer le point A, le long du segment [OL]

S = Intersect(xAxis, yAxis)
O = Point(Circle[S, 18.5])
a = Segment(S, O)
L = (0, 16.65)
b = Segment(S, L)
c = Segment(L, O)
Terrain, c_1, a_1, b_1 = Polygon(S, O, L)
texte1: "Terrain = " + Terrain + " m²"
A = Point(Terrain)
M: (x(A), 0)
I: (0, y(A))
Maison, m, a_2, i, s = Polygon(M, A, I, S)
texte2: "Maison = " + Maison + " m²"