\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 20 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=sphere, r=2.5, ngrid=36 36, % RotY=90, fillcolor=lightgray, incolor=lightgray, hollow, name=sph1, action=none](0,0,1.5) \psSolid[object=cylindre, r=0.75,h=8 fillcolor=red, incolor=red, hollow, % RotY=90, ngrid=36 24, action=none, name=sph2 ](1,1,-1.5) \psSolid[% object=fusion, base=sph1 sph2, name=sphere, opacity=0.6, action=draw** ](0,0,0)% \composeSolid \end{pspicture} \end{document}