Déplacer M à la souris

A = Intersect(xAxis, yAxis)
B_1 = Point(xAxis)
a = Segment(A, B_1)
C = Point(yAxis)
b = Ray(A, C)
B = Point(xAxis)
c = OrthogonalLine(B, xAxis)
E = Point(c)
d = Ray(B, E)
M = Point(b)
G = Point(a)
e = Segment(M, G)
f = OrthogonalLine(G, e)
N = Intersect(f, d)
α = Angle(N, G, M)
g = Segment(G, N)
poly1, n, m, g_1 = Polygon(M, G, N)
distanceAM = Distance(A, M)
Midpoint(A, M)
distanceBN = Distance(B, N)
Midpoint(B, N)
TexteBN: Name[B] + (Name[N]) + " \, = \, " + distanceBN
TexteAM: "" + (LaTeX[Name[A] + (Name[M])]) + " \, = \, " + (LaTeX[distanceAM]) + ""
D = Midpoint(A, M)
D': D + (-1, 0)
texte1: "aire(MGN) = " + poly1 + ""