\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Juergen Gilg %@DATE: 18 février 2008 \psset{unit=1.5} \psset{SphericalCoor=true,viewpoint=50 -20 30,Decran=50} \begin{pspicture}(-4,-6)(8,6) \codejps{ /Paleblue {0.8 0.8 1 setrgbcolor} def /Gray8 {0.8 setgray} def /Gray1 {0.1 setgray} def /Gray2 {0.2 setgray} def /Gray3 {0.3 setgray} def /Gray4 {0.4 setgray} def /Gray5 {0.5 setgray} def /Gray6 {0.6 setgray} def /Gray7 {0.7 setgray} def /sph3 {% 4.5 -90 0 [6 18] newcalottespherecreuse dup (Gray7) outputcolors dup (Gray8) inputcolors } def /dod1 {% 3.9 newdodecaedre dup 0.9 solidchampfreine dup videsolid dup (Gray) outputcolors dup (Gray8) inputcolors } def /sph4 {% 2.55 -90 0 [6 18] newcalottespherecreuse dup (bleu) outputcolors dup (Paleblue) inputcolors } def /ico1 {% 2.1 newicosaedre dup 0.9 solidchampfreine dup videsolid dup (Gray6) outputcolors dup (Gray8) inputcolors } def /sph5 {% 1.4 -90 0 [6 18] newcalottespherecreuse dup (Gray5) outputcolors dup (Gray8) inputcolors } def /tet2 {% 1.2 newoctaedre dup 0.9 solidchampfreine dup videsolid dup (Gray4) outputcolors dup (Gray8) inputcolors } def /sph6 {% 0.6 -90 0 [6 18] newcalottespherecreuse dup (Gray4) outputcolors dup (Gray8) inputcolors } def /sph7 {% 0.3 [6 18] newsphere dup (jaune) outputcolors dup (Gray8) inputcolors } def sph3 dod1 solidfuz sph4 solidfuz ico1 solidfuz sph5 solidfuz tet2 solidfuz sph6 solidfuz sph7 solidfuz drawsolid** } \end{pspicture} \end{document}