%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=10 9 4,SphericalCoor,
	Decran=60,lightsrc=15 5 10}
\begin{pspicture}(-6,-11)(-6,7)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){(sin(2*u)*cos(v)*cos(v))}%
{(cos(u)*sin(2*v))}%
{(sin(u)*sin(2*v))}
\psSolid[object=surfaceparametree,
    base=pi neg 2 div pi 2 div  pi neg 2 div pi 2 div,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    incolor=green,
    fillcolor=green,
    ngrid=50,
    RotZ=75,
%    RotX=-90,
    function=klein]%
}
\end{pspicture}