\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}