f(z):=z^3+z^2+1;

ff:f(r*exp(%i*t))$
makelist(substitute(r=k/2,[parametric,realpart(ff),imagpart(ff)]),k,1,3)$
plot2d(%,[t,-%pi,%pi])$