Représentation d'un éventail par une surface paramétrée (pst-solides3d)

C’est la version de “L’antiprisme en forme d’éventail" :

 http://pstricks.blogspot.fr/2018/02/lantiprisme-en-forme-deventail.html

à l'aide d'une surface paramétrée.
Les fichiers sont dans le dossier :

eventail-surface

Le fichier zippé les contient tous.
Quelques images extraites de la documentation :

Dans les exemples précédant le recouvrement de la surface par une nappe vichy, le principe de la coloration de la surface était que chaque rayon est d'une couleur différente du précédent
en suivant le principe du système de couleurs HSB. On peut faire différemment, en suivant toujours le système HSB, mais en changeant de couleur à partir du centre vers l'extérieur(ou inversement). Cela donne :

Code :

\documentclass[pstricks]{standalone}
\usepackage{pst-solides3d}
\begin{document}
\begin{pspicture}(-7,-6)(7,4)
\psset[pst-solides3d]{viewpoint=100 60 30 rtp2xyz,
       Decran=100,lightsrc=viewpoint}
\psSolid[object=grille,base=-5 5 -5 5,linecolor=red,linewidth=0.5\pslinewidth,ngrid=12](0,0,-2)
\pstVerb{/n1 100 def /n2 20 def}%
\defFunction[algebraic]{eventail}(u,v)
{5*v*sin(u)}
{5*v*cos(u)}
{1*sin(5*u)}
\psSolid[object=surfaceparametree,
    function=eventail,linewidth=0.001,incolor=yellow!20,
    fcol=0 1 n2 1 sub {/i exch def /j 0 def n1 {i j add [1 i n2 div sub]  (1 1 sethsbcolor) astr2str /j j n2 add def} repeat} for,
    base=0 2 pi mul 0 1,grid,opacity=0.8,
    ngrid=n1 n2]%
\psSolid[object=vecteur,
         action=draw,
         linecolor=red,
         args=0 0 3](0,0,1)
\psPoint(0,0,4){Z}\uput[u](Z){\red$z$}
\end{pspicture}
\end{document}