\documentclass{article}
\usepackage{pst-solides3d,pst-node,pst-plot,multido,url}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{colortbl}
\usepackage{array}
\usepackage[a4paper,bottom=2.5cm,top=2cm]{geometry}
%%\usepackage[frenchle]{babel}
\makeatletter

\title{\texttt{pst-solides3d} :\\
       Test}
\date{\today }
\begin{document}
\maketitle

\section {Test cone}

\begin{pspicture*}(-3,-3)(4.5,5)
\psset{lightsrc=viewpoint,viewpoint=5 -5 3,Decran=10}
\defFunction{G}(t)
   {t}
   {t dup mul .25 mul}
   {-2}
\psframe(-3,-3)(4.5,5)
\psSolid[object=cone,
   r=1, h=1](-2,10,0)
\psSolid[object=cone,
   function=G,
   range=-3 2,
   ngrid=3 10,
   origine=0 0 0,
]
%% \psSolid[object=cylindre,
%%    range=0 2, 
%%    h=3,
%%    function=G,
%%    axe=.2 0 1,
%%    ngrid=3 8]
%% \codejps{
%% %-1 1 1 [2 8] newcylindre
%% %-2 2 {F} {0 0 1} 3 [1 6] newcylindre
%% -3 2 {F} {0 0 0} [2 10] newcone
%% dup (rouge) (cyan) solidputcolors
%% drawsolid**
%% }
\end{pspicture*}


\end{document}