%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=10 9 10,SphericalCoor,
	Decran=8,lightsrc=5 -5 5}
\begin{pspicture}(-6,-6)(-6,6)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){(3*(1+sin(v))+2*(1-cos(v)/2)*cos(u))*cos(v)}%
{-2*(1-cos(v)/2)*sin(u)}%
{(4+2*(1-cos(v)/2)*cos(u))*sin(v)}
\psSolid[object=surfaceparametree,
    base=0 pi 2 mul  0 pi 2 mul,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    ngrid=50,
%    RotY=90,
    RotZ=45,
    function=klein]%
}
\end{pspicture}