\begin{pspicture}(-1.5,-2)(8,6)
\psset{SphericalCoor,lightsrc=viewpoint,viewpoint=100 -10 10,Decran=100}
\psSolid[object=grille,base=-3 3 -1 8,action=draw]
\psset{solidmemory}
\codejps{
   /coeff 2 sqrt 2 mul def
}
\defFunction[algebraic]{G3}(t)
   {6*(cos(t))^3*sin(t)}
   {4*(cos(t))^2}
   {0}
\defFunction[algebraic]{G4}(t)
   {6*(cos(t))^3*sin(t)}
   {4*(cos(t))^2+coeff}
   {coeff}
\psSolid[object=courbe,function=G3,
   range=0 6.28,r=0,
   linecolor=blue,
   linewidth=2pt]
\psSolid[object=cylindre,
   range=0 -6.28,
   h=4,
   function=G3,
   axe=0 1 1,
   ngrid=3 36,
   fillcolor=green!50,
   incolor=yellow!50]
\psSolid[object=courbe,function=G4,
   range=0 6.28,r=0,
   linecolor=blue,
   linewidth=2pt]
\psSolid[object=vecteur,
         linecolor=red,
         args=0 coeff coeff]
\psSolid[object=plan,action=draw,
   definition=equation,
   args={[0 0 1 coeff neg] 90},
   base=-1 8 -3 3,planmarks,showBase]
\axesIIID(0,4.5,0)(4,8,5)
\rput(0,-1){\texttt{axe=0 1 1}}
\end{pspicture}