Déplacer M à la souris

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
poly1, a, b, c, d, C, D = Polygon(A, B, 4)
M = Point(d)
e = Circle(B, Distance[A, M])
N = Intersect(e, a, 1)
f = Segment(A, M)
g = Segment(B, N)
I = Midpoint(D, C)
h = Segment(D, I)
i = Segment(I, C)
poly2, n, i_1, m = Polygon(I, M, N)
E = Midpoint(A, M)
texte1: "AM = " + f + ""
texte2: "Aire de IMN = " + poly2 + ""