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