\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} \newcommand\SectionChampignon{ /r3 0.2 R mul def 0 0 %1 % 0 r1 0 % 2 -33 10 43 { /Angle ED Angle cos 0.5 h mul mul 0.2 h mul sub Angle sin 0.5 h mul mul 0.3 h mul add } for 0 10 90 { /Angle ED 0.8 R mul Angle cos mul r3 add 0.8 R mul Angle sin mul 0.6 h mul add } for 0 h } \begin{pspicture}(-3,-6)(3,6) \psframe(-3,-2)(3,6) \psset[pst-solides3d]{viewpoint=100 20 20 rtp2xyz,Decran=50,lightsrc=90 30 30} \psSolid[object=grille,base=-8 8 -8 8,action=draw**,fillcolor=green!50]% \psSolid[object=anneau,section=\SectionChampignon, fillcolor=red!20,h=10,R=5,r=0, unit=0.5,RotX=-20,linewidth=0.5\pslinewidth](-4,5,0) \psSolid[object=anneau,section=\SectionChampignon, fillcolor=white,h=10,R=5,r=0, linewidth=0.5\pslinewidth]% \psSolid[object=anneau,section=\SectionChampignon, fillcolor=yellow!50,h=10,R=5,r=0, unit=0.4,RotY=-90,RotZ=-40,linewidth=0.5\pslinewidth](4,6,0) \end{pspicture} \end{document}