test_33.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Juergen Gilg
 
\psset{viewpoint=-10 -10 10,
   lightsrc=-8 -8 6,
   Decran=20}
\begin{pspicture}(-5,-5)(6,9)
\psset{unit=0.25}
\pstVerb{ /gro { 4 dict begin
   /M defpoint3d
   /a 0.75 def
   /b 1 a 2 sqrt mul sub def
   /k M norme3d a mul b add def
   M k mulv3d
end } def } \psset{action=draw**,linewidth=.02,linecolor=lightgray}
\psSolid[object=cone,
      fillcolor=orange,
      r=4,
      h=5,
      transform=gro,
      ngrid=48 36,
      ](0,0,0)
\end{pspicture}
 
\end{document}