lemniscates



Hi

I would like to draw family of curves:

z: abs(zn)=r

where
r is constant positive number
c is constant complex number
zn: f(n,z)

f[n,z] :=
if n=0
   then z
   else (f[n-1, z]^2 + c);

Can I do it in Maxima ?
How can I find parametric equations for x and y ?

Adam