t = 0.38 (slider from 0 to 62.83185307, step 0.01)
r_C = 20 (slider from 0 to 60, step 1)
r_P = 15 (slider from 0 to r_C, step 0.1)
O = Intersect(xAxis, yAxis)
A = Point(xAxis)
c = Circle(O, A)
C_0: (x(A) - r_C, 0)
A' = Rotate(A, t, O)
C = Rotate(C_0, t, O)
d = Circle(C, r_C)
e = Circle(C, r_P)
a = Segment(C, A')
P = Intersect(e, a, 1)
P' = Rotate(P, (-((t * x(A) / Distance[C_0, A]))), C)
b = Ray(C, P')
D = Intersect(d, b, 1)
f = Segment(C, D)