Déplacer le point M à la souris

A = (-3, 0)
B = Point(xAxis)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
Cu, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
a = Segment(B, G)
A': B + Vector[A, B]
c = Ray(B, A')
M = Point(c)
b = Segment(H, M)
P = Intersect(b, a)
distanceBM = Distance(B, M)
Midpoint(B, M)
TexteBM: Name[B] + (Name[M]) + " = " + distanceBM
distanceBP = Distance(B, P)
Midpoint(B, P)
TexteBP: Name[B] + (Name[P]) + " = " + distanceBP