%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=10 5 10,SphericalCoor,
	Decran=50,lightsrc=15 5 10}
\begin{pspicture}(-6,-11)(-6,7)
\rput(0,0){
\defFunction[algebraic]{klein}(r,t){2*r*cos(t)*sqrt(1-r^2)}%
{2*r*sin(t)*sqrt(1-r^2)}%
{1-2*r^2*cos(t)^2}
\psSolid[object=surfaceparametree,
    base=0 1 0 pi 2 mul,
    linecolor=blue!60,linewidth=0.75\pslinewidth,
    incolor=blue,
    fillcolor=blue,
    ngrid=60,
%    RotY=55,
%    RotX=200,
    RotZ=-110,
    function=klein]%
}
\end{pspicture}