Déplacer le point M à la souris

i = (0, 1)
A = Point(xAxis)
B = Point(yAxis)
a = Segment(A, B)
M = Point(a)
b = OrthogonalLine(M, xAxis)
c = OrthogonalLine(M, yAxis)
P = Intersect(b, xAxis)
Q = Intersect(yAxis, c)
d = Segment(Q, P)
I = Midpoint(d)
e = OrthogonalLine(I, d)
f = Circle(I, P)
R, S = Intersect(f, e)
poly1, e_1, q, p = Polygon(Q, P, S)
poly2, r, p_1, s, q_1 = Polygon(R, P, S, Q)
g = Segment(R, S)