I want to make a 3dplot with the command SurfaceOfRevolution, such
that, for instance, for z<0 the surface looks green, and for z>0 it
looks blue (with the usual shadows). I tried plotting themn separately
and changing the light source, but when I do Show[plot1,plot2],
everything is in the same color...