%@AUTEUR: Juergen Gilg

\psset{viewpoint=-10 -10 10,
   lightsrc=-6 -5 6,
   Decran=30}
\begin{pspicture}(-5,0)(5,15)
\psset{unit=0.85}
\pstVerb{ /gro { 4 dict begin
   /M defpoint3d
   /a 0.775 def
   /b 3.25 a 2 sqrt mul sub def
   /k M norme3d a mul b sub def
   M k mulv3d
end } def } \psset{action=draw**,linewidth=.02,linecolor=lightgray}
\psSolid[object=cone,
      fillcolor=gray,
      r=4,
      h=5,
      transform=gro,
      ngrid=48 36,
      ](0,0,0)
\end{pspicture}