a = 0.16 (slider from 0 to 1, step 0.01)
A = Point(yAxis)
B = Intersect(xAxis, yAxis)
b = Segment(A, B)
u = Vector(A, B)
A' = Translate(A, Vector[(a * u)])
c = Circle(A', 5)
C, D = Intersect(c, xAxis)
d = Segment(A', D)
E = (-1.58, 5.78)
F: A'
G: D
e = Segment(F, G)