Julia Set

m = 50; Fract[z_] :=
 Module[{c = -0.8 + 0.156 I},
  Length[NestWhileList[#^2 + c &, z, Abs[#] < 10 &, 1, m]]];
Colour[n_, z_] := {0.5 + 0.5 Tanh[(n - 30)/20],
  0.5 + 0.3 Tanh[(n - 30)/20] + 0.1 (n/m),
  0.2};
\[Delta] = 0.01; range =
 Table[x + I y, {y, -2, 2, \[Delta]}, {x, -2, 2, \[Delta]}];
data = Map[Colour[Fract[#], #] &, range, {2}];
Image[data]