Essai
Author: Sébastien PEYROT

a = 3.5000000000000004 (slider from 0 to 4, step 0.1)
O = Intersect(xAxis, yAxis)
O_1 = Point(xAxis)
A = Point(xAxis)
c = Circle(A, a)
C_1 = Circle(O_1, A)
B = Point(xAxis)
O_2 = Point(xAxis)
C = Circle(O, A)
C_2 = Circle(O_2, B)
D, I = Intersect(C_1, xAxis)
M_1, M = Intersect(C_1, c)
e = Segment(A, B)
d = Line(A, M)
N = Intersect(C, d, 2)
d_1 = Line(I, d)
c_1 = Line(N, d)
f = Line(M, I)
d_2 = Line(N, f)
J = Intersect(d_2, d_1)
poly1, b, g, h, i = Polygon(M, N, J, I)
j = Segment(A, M)
M': (8 + a, -6)
A' = (8, -6)
l = Segment(A', M')
S': (8 + a, -6 + poly1)
k = Segment(M', S')
E = (16, -6)
u = Vector(A', E)
G = (8, 8)
v = Vector(A', G)
S: (8, -6 + poly1)
m = Segment(S, S')
n = Segment(A', S)