Déplacer A ou B à la souris

O = (2.88, -1.14)
c = Circle(O, 5)
A = Point(c)
B = Point(c)
C = Mirror(A, O)
D = Mirror(B, O)
poly1, a, b, c_1, d = Polygon(A, B, C, D)
texte1: "aire = " + poly1 + ""
périmètrepoly1 = Perimeter(poly1)
Textepoly1: "Périmètre de  " + (Name[A]) + (Name[B]) + (Name[C]) + (Name[D]) + " = " + périmètrepoly1
Pointpoly1 = PointIn(poly1)
texte2: "périmètre = " + périmètrepoly1 + ""
distanceAB = Distance(A, B)
distanceBC = Distance(B, C)