E = (0.2, -2)
C = (5.74, -0.32)
B = (-0.28, -0.2)
e = Segment(B, E)
f = Line(C, e)
A = (1.94, 2.72)
g = Line(A, f)
poly1, c, a, b = Polygon(A, B, C)
d = Line(E, a)
D = Intersect(d, f)
q = Circle(A, Segment[C, D])
M, K_1 = Intersect(q, g)
h = Line(M, c)
i = Line(M, b)
F = Point(h)
j = Segment(F, B)
H = Point(i)
k = Segment(C, H)
l = Line(A, k)
m = Line(A, j)
G = Intersect(h, m)
K = Intersect(i, l)
poly2, a_1, i_1, g_1, b_1 = Polygon(A, G, F, B)
poly3, b_2, d_1, e_1, c_1 = Polygon(B, E, D, C)
poly4, a_2, j_1, h_1, c_2 = Polygon(A, K, H, C)
n = Segment(G, M)
p = Segment(M, K)
Textepoly3: "Aire de  " + (Name[B]) + (Name[E]) + (Name[D]) + (Name[C]) + " = " + poly3
Textepoly2: "Aire de  " + (Name[A]) + (Name[G]) + (Name[F]) + (Name[B]) + " = " + poly2
Textepoly4: "Aire de  " + (Name[A]) + (Name[K]) + (Name[H]) + (Name[C]) + " = " + poly4
r = Segment(A, M)
o: poly2 + poly4
texte1: "Somme des aires de AGFB et AKHC = " + o + ""