coloriage.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\parindent=0pt
\begin{document}
 
\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}
 
\psset{unit=0.75}
\begin{pspicture}(-6,-1)(6,7)
\psset{Decran=60,SphericalCoor,viewpoint= 20 20 30}
\psframe(-6,-1)(6,7)
\defFunction{para}(u,v){2 u u mul mul 2 v v mul mul add}{}{}
%\psset{fontsize=5,numfaces=all}
%\psSolid[object=surface*,
%   r=1,
%   function=para,
%   ngrid=.1 36,
%   action=writesolid,
%   file=para]
%
\psSolid[object=datfile,file=para,incolor=yellow!50]
\end{pspicture}
 
\begin{pspicture}(-6,-1)(6,7)
\psset{Decran=60}
\psset{SphericalCoor,viewpoint= 20 0 20}
%\psset{fontsize=3,numfaces=all}
\psframe(-6,-1)(6,7)
\pstVerb{/i 612 store}%
\defFunction{para}(u,v){2 u u mul mul 2 v v mul mul add}{}{}
\psSolid[object=surface*,
   r=1,
   function=para,
   ngrid=.1 36,
   fcol=1 {i 1 i 35 add {/j exch def j (rouge)} for
           i 36 add 1 i 71 add {/j exch def j (blanc)} for 
           i 72 add 1 i 107 add {/j exch def j (bleu)} for
           /i i 108 add def} repeat
         0 1 611 {/i exch def i (blanc)} for]
\end{pspicture}
 
\end{document}