\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} \begin{pspicture}(-4,-5)(4,6) \psset{viewpoint=100 -30 20 rtp2xyz,lightsrc=viewpoint,Decran=100} \psframe*[linecolor=gray](-4,-5)(4,6) \pstVerb{/epaisseur 1 def}% \psSolid[object=grille,base=epaisseur neg epaisseur -3 3,ngrid=epaisseur 6,linecolor={[rgb]{0.72 0.72 0.5}}](0,0,-4) \Normale[fillcolor=red](epaisseur,180,0) \psSolid[object=grille,RotY=90,base=-4 4 -3 3,ngrid=8 6,action=draw,linecolor={[rgb]{0.72 0.72 0.5}}](epaisseur neg,0,0) \codejps{ solidlightOn /cone1 { -4 2.5 0 [10 18] newcone [-1 0 0 epaisseur neg] solidplansepare [1 0 0 epaisseur neg] solidplansepare dup (0.7 1 0.7 setrgbcolor) outputcolors dup 138 (0.5 0.72 0.5 setrgbcolor) solidputfcolor %dupsolid drawsolid** %solidnumfaces } def /cone2 { 4 2.5 0 [10 18] newcone dup solidfacesreverse [1 0 0 epaisseur neg] solidplansepare [-1 0 0 epaisseur neg] solidplansepare dup (0.7 1 0.7 setrgbcolor) outputcolors dup 120 (0.5 0.72 0.5 setrgbcolor) solidputfcolor %dupsolid drawsolid** %solidnumfaces } def cone2 cone1 } \axesIIID[linecolor=blue](0,0,4)(2.5,2.5,5) \psSolid[object=grille,RotY=90,base=-4 4 -3 3,ngrid=8 6,action=draw,linecolor={[rgb]{0.72 0.72 0.5}}](epaisseur,0,0) \Normale[fillcolor=red](epaisseur,0,0) \end{pspicture} \end{document}