A = (-0.1, -0.96)
a_2 = 5
B = Point(Circle[A, 5])
a_3 = Segment(A, B)
b = OrthogonalLine(B, a_3)
c = Circle(B, 7)
C = Intersect(c, b, 1)
d = Line(A, b)
e = Line(C, a_3)
D = Intersect(d, e)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
a = 3 (slider from 0 to 5, step 0.01)
f = Circle(A, a)
g = Circle(B, a)
h = Circle(C, a)
k = Circle(D, a)
i = Segment(B, C)
j = Segment(C, D)
l = Segment(D, A)
I = Intersect(f, a_3, 1)
J = Intersect(g, i, 1)
K = Intersect(h, j, 1)
L = Intersect(k, l, 1)
poly2, e_1, f_1, g_1, h_1 = Polygon(I, J, K, L)
m = Segment(B, J)
n = Segment(I, A)
q = Segment(L, D)
E = (16.54, 2.04)
texte1: "Aire de IJKL = " + poly2 + ""
p = Perimeter(poly2)
AL = Distance(A, L)
M: (Distance[A, I], poly2)