\documentclass[a4paper]{article} \usepackage[T1]{fontenc} \usepackage[latin1]{inputenc} \usepackage{pstricks-add,pst-solides3d} \renewcommand{\sfdefault}{phv} \makeatletter \newdimen\pssizeStar \def\psset@sizeStar#1{\pssetlength\pssizeStar{#1}} \psset@sizeStar{1.5pt} %% adapté de \psRandom du package pstricks-add %% pour rendre aléatoire la taille des étoiles \def\psRandomStar{\pst@object{psRandomStar}}% \def\psRandomStar@i{\@ifnextchar({\psRandomStar@ii}{\psRandomStar@iii(0,0)(1,1)}} \def\psRandomStar@ii(#1){\@ifnextchar({\psRandomStar@iii(#1)}{\psRandomStar@iii(0,0)(#1)}} \def\psRandomStar@iii(#1)(#2)#3{% \def\pst@tempA{#3}% \ifx\pst@tempA\pst@empty\psclip{\psframe(#2)}\else\psclip{#3}\fi \pst@getcoor{#1}\pst@tempA \pst@getcoor{#2}\pst@tempB \begin@SpecialObj \addto@pscode{ \pst@tempA\space /yMin exch def /xMin exch def \pst@tempB\space /yMax exch def /xMax exch def /dy yMax yMin sub def /dx xMax xMin sub def rrand srand % initializes the random generator /getRandReal { rand 2147483647 div } def \psk@randomPoints { /DS \pst@number\pssizeStar\space getRandReal mul def \@nameuse{psds@\psk@dotstyle} \ifPst@color getRandReal 1 1 sethsbcolor \fi getRandReal dx mul xMin add getRandReal dy mul yMin add Dot \ifx\psk@fillstyle\psfs@solid fill \fi stroke } repeat }% \end@SpecialObj \endpsclip \ignorespaces } \makeatother \pagestyle{empty} \begin{document} \psset{path=../data} %@AUTEUR: Manuel Luque \psset{SphericalCoor,viewpoint= 20 10 30,Decran=30} \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}