(* This is a program for animating parametrized solutions *)
(* of polynomials, with mathematica. f[b_,c_] is the *)
(* branch curve, where b will be taken as parameter, *)
(* and we solve for c. To run it, type <True, ImageSize->Full,
PlotStyle->PointSize[0.002],
PlotRange->{{-scale+center,scale+center},{-\[Pi],\[Pi]}}],{t,1,steps+1,1}];
ListAnimate[myplot]