r = 0.64 (slider from 0 to 10, step 0.01)
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) + 2 * (r * cos(t) + r * sin(t) * ί)^(1) + 3), t, 0, 6.28319)
b = 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)
d = CurveCartesian(x((r * cos(t) + r * sin(t) * ί)^(5) + ί * (r * cos(t) + r * sin(t) * ί)^(2) + (0, 3)), y((r * cos(t) + r * sin(t) * ί)^(5) + ί * (r * cos(t) + r * sin(t) * ί)^(2) + (0, 3)), t, 0, 6.283185307179586)