Déplacer le point B à la souris

A = (-0.04, 0.04)
A' = (15.96, 0.04)
a = Segment(A, A')
B = Point(a)
c = Circle(B, 8 - Distance[A, B] / 2)
d = Circle(A, 8 - Distance[A, B] / 2)
C = Intersect(c, d, 2)
poly1, b, g, h = Polygon(A, B, C)
distanceAB = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " \, = \, " + distanceAB
périmètrepoly1 = Perimeter(poly1)
i = Perimeter(poly1)
Textepoly1: "Périmètre " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + i
θ = Angle(B, A, C)
texte2: "Aire ABC =" + poly1