Circonferenza tangente a 2 date, di dato iaggio

Trace on per il centro della circonferenza mossa dallo slider.
1) muovendo lo slider
2) muovendo il punto sul segmento che unisce le 2 circonferenze

A = (-2, 0)
B = (1, 0)
a = Segment(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)