r

r

2a

show tangent circle

F_1 = (0.34, 1.78)
f = OrthogonalLine(F_1, yAxis)
A = Point(f)
c = Circle(F_1, A)
F_2 = Point(f)
r = 1.3 (slider from 0 to 4, step 0.1)
g = OrthogonalLine(F_1, f)
B = Intersect(c, g, 2)
d = Circle(F_2, r)
e = Circle(B, r)
C = Intersect(e, g, 1)
h = Circle(F_1, C)
D = Intersect(d, h, 2)
E = Intersect(d, h, 1)
i = Segment(B, C)
j = OrthogonalLine(F_2, f)
F = Intersect(d, j, 2)
k = Segment(F, F_2)
loc1 = Locus(D, r)
loc2 = Locus(E, r)
l = Segment(F_1, A)
m = Segment(F_1, D)
n = Segment(D, F_2)
p = Circle(D, F_2)
a = false