A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
a = 1 (slider from 0 to 50)
B = Intersect(c, xAxis, 2)
B' = Rotate(B, a, A)
α = Angle(B, A, B')
f = OrthogonalLine(B', xAxis)
C = Intersect(f, xAxis)
u = Vector(C, B')
d = Circle(A, a)
D = Intersect(d, xAxis, 2)
D' = Translate(D, u)
v = Vector(D, D')