RevolutionPlot3D Examples

Table[RevolutionPlot3D[{{Cos[u],0,u^2/6},
{2Sin[u/2],0,u^2/6},{3Cos[u/3],0,u^2/6}},
{u,0,2Pi},PlotRange->All,PlotPoints->p,
PlotStyle->Opacity[.5],ColorFunction->Function[{x,y,z},
ColorData["CoffeeTones"][Cos[49x+64y]Sin[81z]]],
Mesh->False,Axes->False,Boxed->False,
ImageSize->300],{p,{10,130}}]