cone.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
 
%@AUTEUR:  Hamed Al-Sulami
 
\psset{solidmemory}
\psset{unit=0.5}
\psset{lightsrc=10 5 10,SphericalCoor,viewpoint=20 10 20,Decran=50}
\begin{pspicture}(-9,-7)(10,12)
 
\psSolid[object=grille,base=-2 2 -2 2,linecolor=white](0,0,-2)
\defFunction{cone}(u,v){u v Cos mul}{u v Sin mul}{u}
\psSolid[
object=surfaceparametree,
base=-2 2 0 2 pi mul,
fillcolor=yellow!50,incolor=green!50,
function=cone,
linewidth=0.5\pslinewidth,
action=none,
name=sph1,
ngrid=25 40,
]%
\psSolid[object=grille,
 base=-3 3 -4 4,
    fillcolor=gray!20,
    RotX=-60,
    RotY=0,
    RotZ=0,
    ngrid=24 24,
    hollow,
    action=none,
    name=sph2,
    ](0,0,1.7)
\psSolid[%
    object=fusion,
    base=sph1 sph2,
    name=sphere,
    opacity=0.6,
    action=draw**
    ](0,0,0)%
 
 \psset{linecolor=black}
\axesIIID(-4,-4,-4)(4,4,4)
\composeSolid
\end{pspicture}
 
\end{document}