\begin{pspicture}(-4,-5)(-6,8)
\psset{solidmemory}
\psset{unit=0.25}
\psset{viewpoint=-10 -10 10,
   lightsrc=-8 -5 6,
   Decran=50}

\psSolid[object=sphere,
    r=4.5,
    ngrid=36 36,
%    RotY=90,
    fillcolor=blue,
    incolor=lightgray,
    hollow,
    name=sph1,
    action=none](0,0,2)
\psSolid[object=cone,
      fillcolor=red,
      r=5,
      h=9,
      ngrid=36 36,
      hollow,
      name=sph2,
      action=none
      ](0,0,0)
\psSolid[%
    object=fusion,
    base=sph1 sph2,
    name=sphere,
    opacity=0.6,
    action=draw**
    ](0,0,0)%
\composeSolid


\end{pspicture}