r = 6.9 (slider from 0 to 10, step 0.1)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
e = CurveCartesian(x((r * cos(t) + r * sin(t) * ί)^(3) + ί * (r * cos(t) + r * sin(t) * ί)^(2) - 2 * (r * cos(t) + r * sin(t) * ί) + 2 - ί), y((r * cos(t) + r * sin(t) * ί)^(3) + ί * (r * cos(t) + r * sin(t) * ί)^(2) - 2 * (r * cos(t) + r * sin(t) * ί) + 2 - ί), t, 0, 6.283185307179586)
a = CurveCartesian(x(ί * (r * cos(t) + r * sin(t) * ί)^(2) + (r * cos(t) + r * sin(t) * ί)^(2) - 2 * (r * cos(t) + r * sin(t) * ί) + (0, 2)), y(ί * (r * cos(t) + r * sin(t) * ί)^(2) + (r * cos(t) + r * sin(t) * ί)^(2) - 2 * (r * cos(t) + r * sin(t) * ί) + (0, 2)), t, 0, 6.283185307179586)