I can't believe I missed this post in March. Well, it's rather late for Easter eggs, but "better late than never," as they say.
John's plots[implicitplot3d] egg is very nice, but with the plot3d command, you can use colour functions. I also used the lightmodel and glossiness options to make my egg extra shiny.
plot3d([(sqrt(w)+.2)*cos(v)*sin(w), (sqrt(w)+.2)*sin(v)*sin(w), 1.7*cos(w)], v = 0 .. 2*Pi, w = 0 .. Pi, grid = [50, 50], scaling = constrained, color = cos(w+v), style = surface, orientation = [30, 120], lightmodel = light4, glossiness = 1)
For my second egg, I used the plots[conformal3d] routine and altered the sphere with plottools[transform] to make the following (conformal plot on a Riemann egg?):
p := plots[conformal3d](cos(z), z = 0 .. 2*Pi+I*Pi, color = ["DeepPink", "Blue"], spherecolor = "LimeGreen", grid = [30, 30]);
f := plottools[transform](proc (x, y, z) options operator, arrow; [.8*(sqrt(z)+1)*x, .8*(sqrt(z)+1)*y, 2*z] end proc);
plots[display](f(p), scaling = constrained, orientation = [30, -90])