A = (-2.08, 1)
B = (1.92, 1)
poly1, f, g, h, i, C, D = Polygon(A, B, 4)
BE = 1.1 (slider from 0 to 4, step 0.1)
c = Circle(B, BE)
d = Circle(C, BE)
E = Intersect(c, g, 1)
G = Intersect(d, h, 1)
j = Segment(B, E)
k = Segment(C, G)
l = OrthogonalLine(E, i)
m = OrthogonalLine(G, f)
F = Intersect(l, m)
q1, e, f_1, g_1, c_1 = Polygon(E, F, G, C)
aireCEFG: (BE * (4 - BE))
texte1 = LaTeX(aireCEFG, true, true)