How do I control colors in such Maple program using plot3d? Is it possible to define the conditions?

> restart: with(plots):
      mandelbrot := proc(x, y)
     local c, z, m;
     c := evalf(x+y*I);
     z := c;
     for m from 0 to 30 while abs(z) < 2 do
        z := z^2+c
        od;
        m
     end:
 >    plot3d(0, -2 .. 0.7, -1.2 .. 1.2, orientation=[-90,0], grid=[40, 40], 
       style=point, scaling=constrained, color=mandelbrot);