\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} \newcommand\SectionAmanite{ /radius1 h 8 div 1.52 mul def /xC1 h 8 div 0.25 mul def /yC1 h 8 div 1.5 mul def /radius2 h 8 div 4.5 mul dup mul h 8 div 2 mul dup mul add sqrt 4 div 4.5 mul def /xC2 0 def /yC2 h 8 div 2.46 mul def -110 10 70 { /Angle ED Angle cos radius1 mul xC1 add Angle sin radius1 mul yC1 add } for h 8 div 0.5 mul h 8 div 6 mul 40 10 90 {/Angle ED Angle cos radius2 mul xC2 add Angle sin radius2 mul yC2 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**,hue=0.2 0.5 0.5 1,grid](0,0,0) \psSolid[object=anneau,section=\SectionAmanite, h=8,R=5,r=0,hue=0 1 0.5 1, unit=0.5,grid,RotX=-20](-4,5,0) \psSolid[object=anneau,section=\SectionAmanite, h=8,R=5,r=0,hue=0 1 0.5 1,grid](0,0,0) \psSolid[object=anneau,section=\SectionAmanite, h=8,R=5,r=0,hue=0 1 0.5 1,grid, unit=0.4,RotY=-90,RotZ=-50](4,6,0) \end{pspicture} \end{document}