Graphics`SurfaceOfRevolution`
RevolutionPlot3D has been added to the built-in Mathematica kernel.
RevolutionPlot3D has much of the same functionality as SurfaceOfRevolution:
Version 5.2
![<< Graphics`SurfaceOfRevolution`;
SurfaceOfRevolution[Cos[x], {x, 0, Pi}]](Files/SurfaceOfRevolution.en/legacy_1.gif)
ListSurfaceOfRevolution was available in previous versions of Mathematica and is now available on the web at library.wolfram.com/infocenter/MathSource/6824.