C = (2, 0)
D = Point(Segment[C, (x(C) - 5, y(C))])
stap = 3 (slider from 0 to 3, step 1)
A = (7, 2)
B = Point(Segment[A, (x(A) + 5, y(A))])
f = Segment(A, B)
c = Circle(C, D)
g: y = y(C)
d = Circle(D, f)
E = Intersect(d, g, 1)
F = Intersect(c, d, 2)
G = Intersect(c, g, 2)
H = (-5.154296762241804, -4.407294552169905)
I = Intersect(d, g, 2)
J = Intersect(c, d, 1)
i = Segment(D, If[x(I) > x(E), I, E])
j = Segment(If[x(I) > x(E), I, E], G)
h = Segment(D, If[y(J) > y(F), J, F])