ex_16.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
% \section*{Twister \dots}
\psset[pst-solides3d]{viewpoint=5 5 5,SphericalCoor,
	Decran=60,lightsrc=15 5 5}
\begin{pspicture}(-4,-11)(-6,7)
\rput(0,0){
\defFunction[algebraic]{klein}(u,v){cos(2*u)*cos(2*v)*sin(2*u)*sin(2*v)*sin(2*v)*sin(2*v)}%
{sin(2*u)*sin(2*v)*sin(2*u)*sin(2*v)*cos(2*u)}%
{-cos(2*u)*sin(2*v)*cos(2*u)*sin(2*v)}
\psSolid[object=surfaceparametree,
    base=pi 2 div neg 0 0 pi,
    linecolor=lightgray,linewidth=0.75\pslinewidth,
    incolor=gray,
    fillcolor=gray,
    ngrid=60,
%    RotY=55,
%    RotX=-90,
%    RotZ=-45,
    function=klein]%
}
\end{pspicture}
 
\end{document}