with(plots);
c := 1/6 *I-1/7;
Q := x -> x^2 + c;
QR := (a,b) -> op([a^2-b^2+Re(c), 2*a*b+Im(c)]);
ABS := (a,b) -> a^2 + b^2;
Qinv := y -> sqrt(y-c);
display(seq(plot([Re((Qinv@@i)(exp(I*t)/2)),Im((Qinv@@i)(exp(I*t)/2)), t=0..2*Pi]),i=0..5));
?sqrt
i := 'i';
display([seq(display([seq(implicitplot(ABS((QR@@i)(x,y)) = 1/4, x=-1.3..1.3, y=-1..1, numpoints=1000+5000*i), i=0..j)]),j=0..7)], insequence=true);
?plot, complex
ABS(QR(x,y)) = 1/4