\documentclass[a4paper,12pt]{article} \usepackage{pstricks} \usepackage{pst-3dplot} \usepackage{pst-grad} \parindent=0pt \makeatletter \begin{document} \begin{pspicture}(-5,-5)(5,5) \pstThreeDCoor \pstThreeDPut(1,0,0){ \parametricplotThreeD[xPlotpoints=20,yPlotpoints=50](0,360)(0,360){% /a 1.5 def /b 2 def /c 3 def a t cos u sin mul mul b t sin u sin mul mul c u cos mul } } \pstThreeDPut(-1,2,3){ \parametricplotThreeD[hiddenLine=true,plotstyle=curve,fillstyle=gradient, gradbegin=red,gradend=white,xPlotpoints=20,yPlotpoints=50](0,360)(0,360){% /a 3.5 def /b 2 def /c 2 def a t cos u sin mul mul b t sin u sin mul mul c u cos mul } } \end{pspicture} \end{document}