A = (-0.7000000000000001, -0.38)
B = Point(Circle[A, 4.0])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = Circle(A, 3.0)
C_1, C = Intersect(c, b)
d = Segment(C, A)
e = Segment(C, B)
α = Angle(B, A, C)
f = Circle(B, 2.0)
l = 2 (slider from 0 to 4, step 0.1)
p = Circle(B, l)
P = Intersect(p, a)
g = OrthogonalLine(P, a)
M = Intersect(g, e)
h = Segment(P, M)
i = OrthogonalLine(M, h)
Q = Intersect(d, i)
poly1, e_1, f_1, a_1, d_1 = Polygon(M, Q, A, P)
périmètre: "périmètre=" + ((e_1 + d_1) * 2.0)