\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 cylindre}

\begin{pspicture*}(-3,-3)(4.5,5)
%\psset{solidmemory}
\psframe(-3,-3)(4.5,5)
\psset{lightsrc=10 -20 50,viewpoint=10 -10 10,Decran=20}
\defFunction{G}(t)
   {t}
   {t dup mul .25 mul}
   {-1}
\psSolid[object=cylindre,
   r=1, h=1](-2,3,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
%% drawsolid
%% }
\end{pspicture*}


\end{document}