%@AUTEUR: Juergen Gilg
\psset[pst-solides3d]{viewpoint=10 9 10,SphericalCoor,
	Decran=50,lightsrc=0 5 0}
\begin{pspicture}(-6,-11)(-6,7)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){cos(u)*sin(v)}%
{(cos(v)+log(tan(v/2))) + 0.2*u}%
{sin(u)*sin(v)}
\psSolid[object=surfaceparametree,
    base=0 12.4 0.1 2,
    linecolor={[cmyk]{1,0,1,0.5}},linewidth=0.75\pslinewidth,
    ngrid=50,
    %RotY=90,
    RotX=-90,
    function=klein]%
}
\end{pspicture}