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

\begin{pspicture*}(-3,-3)(4.5,5)
\defFunction{G}(t,x,y)
   {t}
   {.25 t dup mul mul}
   {}
%% donne
%% /G { 
%%    /t exch def 
%%    (t) tx@AlgToPs begin AlgToPs end cvx 
%%    (.25*t^2) tx@AlgToPs begin AlgToPs end cvx 
%%    (-2) tx@AlgToPs begin AlgToPs end cvx 
%% } def
\codejps{
   1 2 3 G boum
}
\end{pspicture*}


\end{document}