Exercises with Complex Functions 2

BF=Function[p0,Module[{i=1,maxi=30,p=p0},
While[i<maxi && Abs[p]<2,p=p^6+p0;i++ ];i]];
ArrayPlot[Table[BF[x+I y],
{x,-1.2,1.2,.01},{y,-1.2,1.2,.01}],
ColorFunction->"BrightBands",
ImageSize->500,PlotLegends->Automatic]