Cercle de rayon R

AB=d

Cercle de rayon r

d = 5.800000000000001 (slider from 0 to 15, step 0.1)
B: (d, 0)
r = 1 (slider from 0 to 6, step 0.1)
e = Circle(B, r)
A = Intersect(xAxis, yAxis)
R = 3 (slider from 0 to 6, step 0.1)
d_1 = Circle(A, R)
P = Point(d_1)
q = Segment(A, P)
b1 = Line(B, q)
Q, R_1 = Intersect(e, b1)
j = Segment(A, B)
m = OrthogonalLine(B, j)
l = OrthogonalLine(A, j)
C: (d + d r / (R - r), 0)
f, g = Tangent(C, d_1)
E = Intersect(d_1, g)
G, F_1 = Intersect(e, g)
D = Intersect(d_1, f)
F, H = Intersect(e, f)
h = Segment(E, G)
i = Segment(D, F)
k = CircleArc(A, D, E)
p = CircleArc(B, G, F)
L: i + h + p + k
T1: "Longueur = " + L
s = Segment(E, A)
t = Segment(B, G)
n = Segment(B, C)
K = Intersect(d_1, k, 1)
r_1 = Segment(R_1, B)
c1 = Line(P, R_1)