%@AUTEUR: Manuel Luque

\psset{SphericalCoor,viewpoint= 20 10 30,Decran=30}
\begin{pspicture}(-6,-3)(6,3)
\psframe(-6,-3)(6,3)
\pstVerb{/i 0 store
  /rougepale {1 0.5 0.5 setrgbcolor} def
  /vertpale {0.5 1 0.5 setrgbcolor} def
  /jaunepale {1 1 0.5 setrgbcolor} def}%
\defFunction[algebraic]{cour}(u,v){u}{v}{sin(u^2+v^2)}
\psSolid[object=surfaceparametree,
         function=cour,
         base=-2 2 -2 2,
         fcol=333 {i (rougepale) i 1 add (vertpale) i 2 add (jaunepale) /i i 3 add store} repeat,
         incolor=yellow!50,
         ngrid=50 20]
\end{pspicture}