A = (0, 0)
B = Point(xAxis)
a = 4.8 (slider from 0 to 8, step 0.1)
M: (a, 0)
poly1, a_1, m, b, c, C, D = Polygon(A, M, 4)
poly2, m_1, b_1, d, e, E, F = Polygon(M, B, 4)
poly3, a_2, b_2, g, h, e_1, f = Polygon(A, B, E, F, C, D)
distanceAM = Distance(A, M)
TexteAM: Name[A] + (Name[M]) + " \, = \, " + distanceAM
périmètrepoly3 = Perimeter(poly3)
Textepoly3: "Périmètre de  " + (Name[A]) + (Name[B]) + (Name[E]) + (Name[F]) + (Name[C]) + (Name[D]) + " = " + périmètrepoly3