Ottenuta modificando una precedente:
ho sostiituito al segmento unente i centri, la retta.

A = (-2, 0)
B = (1, 0)
a = Line(A, B)
C = Point(a)
c = Circle(A, C)
d = Circle(B, C)
b = 1.5 (slider from 0 to 5, step 0.1)
e = Circle(A, b + Radius[c])
g = Circle(B, b + Radius[d])
D, E = Intersect(e, g)
f = Circle(D, b)