A = (-4.791747693144576, 0.31003615206777746)
B = (-10.38986948889219, -8.2026227056937)
f = Segment(A, B)
C = Midpoint(f)
c = Circle(C, A)
D = Point(c)
t1, b, a, d = Polygon(A, D, B)
α = Angle(A, D, B)
poly1, g, h, i, j, E, F = Polygon(A, D, 4)
poly2, k, l, m, n, G, H = Polygon(D, B, 4)
poly3, p, q, r, s, I, J = Polygon(B, A, 4)
Textepoly3: "Aire  " + poly3 + ""
Pointpoly3 = PointIn(poly3)
Pointpoly2 = PointIn(poly2)
Pointpoly1 = PointIn(poly1)
distanceBA = Distance(B, A)
TexteBA: Name[B] + (Name[A]) + " = " + distanceBA
distanceBD = Distance(B, D)
TexteBD: Name[B] + (Name[D]) + " = " + distanceBD
distanceDA = Distance(D, A)
TexteDA: Name[D] + (Name[A]) + " = " + distanceDA
Textepoly1: "Aire  " + poly1 + ""
Textepoly2: "Aire  " + poly2 + ""
texte1: "Somme des aires des carrés verts 
 " + poly2 + "  + " + poly1 + " = " + (poly1 + poly2) + "
Aire du carré rouge
 " + poly3 + ""