\documentclass[10pt,a4paper]{report} \usepackage[french]{babel} \usepackage{t1enc,latexsym,amsfonts,amssymb} \usepackage{pstricks,pstricks-add,pst-math,pst-xkey} \usepackage{pst-solides3d} \pagestyle {empty} \begin{document} \psset{unit=15pt, incolor=white,fillcolor=white} \begin{pspicture}(0,-8)(5,3) \psset[pst-solides3d]{viewpoint=-20 00 -30 , Decran=100, %lightsrc=viewpoint,lightintensity=1.2, } \defFunction{F}(u,v) {u}{v Sin u Sin 2 exp mul 2 div}{v Cos u Sin 2 exp mul 2 div } \defFunction{G}(u,v) {u}{v Sin 0.25 u 1.57 sub 2 exp sub sqrt mul }{v Cos 0.25 u 1.57 sub 2 exp sub sqrt mul } \psSolid[object=surfaceparametree, base=1.57 2.07 0 6.28, function=G,linewidth=0.5\pslinewidth, ngrid=5 15, %% ici on fait une boucle "for" pour (5*15 faces) fcol=0 2 5 15 mul {/i exch def i (Black) i 1 add (LimeGreen) } for, fillcolor=black!5] \psSolid[object=surfaceparametree, base=0 1.57 0 6.28, function=F,linewidth=0.5\pslinewidth, ngrid=8 15, %% ici on fait une boucle "repeat" pour (8*15 faces) fcol=/i 0 def 60 {i (Black) i 1 add (LimeGreen) /i i 2 add store} repeat, fillcolor=black!5] \end{pspicture} \end{document}