α = 0 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
A = Intersect(xAxis, yAxis)
P: (sec(α), tan(α))
d = Circle(P, A)
a = CurveCartesian((-2 * cos(t) / (cos(t)^(2) - 2)), ((2 * sin(t)) * cos(t) / (cos(t)^(2) - 2)), t, 0, 6.283185307179586)