ex_26.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
\begin{pspicture}(-4,-5)(-6,8)
\psset{solidmemory}
\psset{unit=0.55}
\psset{lightsrc=10 5 10,SphericalCoor,viewpoint=20 10 20,Decran=50}
 
 
 
\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,
    ngrid=36,
%    RotY=90,
    RotZ=45,
    fillcolor=lightgray,
    incolor=lightgray,
    hollow,
    function=klein,
    name=sph1,
    action=none]%
    \psSolid[object=grille,
    base=-7 7 -5 4,
    fillcolor=yellow,
    RotX=30,
    RotZ=15,
    ngrid=24 24,
    action=none,
    name=sph2
    ](0,0,2)
\psSolid[%
    object=fusion,
    base=sph1 sph2,
    name=sphere,
    opacity=0.6,
    action=draw**
    ](0,0,0)%
\composeSolid
 
 
\end{pspicture}
 
\end{document}