\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} \begin{pspicture}(-4,-5)(4,6) \psset{SphericalCoor=true,viewpoint=25 -80 5,lightsrc=viewpoint,Decran=25} \psframe*[linecolor=gray](-4,-5)(4,6) \codejps{ solidlightOn /cone1 { -4 3 0 [12 24] newcone [70 cos neg 0 70 sin neg -2.8] solidplansepare exch /partie1 exch def [70 cos neg 0 70 sin neg -2.2] solidplansepare [70 cos neg 0 70 sin neg -1.6] solidplansepare exch /partie2 exch def [70 cos neg 0 70 sin neg -1] solidplansepare [70 cos neg 0 70 sin neg -0.4] solidplansepare exch /partie3 exch def partie1 dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** partie2 dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** partie3 dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** } def /cone2 { 4 3 0 [12 24] newcone dup solidfacesreverse [70 cos 0 70 sin -0.4] solidplansepare exch /partie4 exch def partie4 [70 cos 0 70 sin -1] solidplansepare exch /partie5 exch def dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** partie5 [70 cos 0 70 sin -1.6] solidplansepare exch [70 cos 0 70 sin -2.2] solidplansepare exch /partie6 exch def dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** partie6 [70 cos 0 70 sin -2.8] solidplansepare exch dup (0.7 1 0.7 setrgbcolor) outputcolors drawsolid** } def cone1 cone2} \end{pspicture} \end{document}