\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 /Gray9 {0.9 setgray} 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 .01 setlinewidth /sph1 {% 6 -90 0 [12 36] newcalottespherecreuse dup (Gray4) outputcolors dup (Gray8) inputcolors } def /cub1 {% 6 newcube dup 0.9 solidchampfreine dup videsolid dup (Gray5) outputcolors dup (Gray7) inputcolors } def /sph2 {% 3 -90 0 [12 36] newcalottespherecreuse dup (bleu) outputcolors dup (Paleblue) inputcolors } def /tet1 {% 3 newtetraedre dup 0.9 solidchampfreine dup videsolid dup (Gray4) outputcolors dup (Gray7) inputcolors } def /sph3 {% 1.5 -90 0 [6 18] newcalottespherecreuse dup (Gray5) outputcolors dup (Gray8) inputcolors } def /dod1 {% 1.3 newdodecaedre dup 0.9 solidchampfreine dup videsolid dup (Gray6) outputcolors dup (Gray8) inputcolors } def /sph4 {% 0.85 -90 0 [6 18] newcalottespherecreuse dup (Gray6) outputcolors dup (Gray9) inputcolors } def /ico1 {% 0.7 newicosaedre dup 0.8 solidchampfreine dup videsolid dup (Gray7) outputcolors dup (Gray8) inputcolors } def /sph5 {% 0.5 -90 0 [6 18] newcalottespherecreuse dup (Gray7) outputcolors dup (White) inputcolors } def /tet2 {% 0.4 newoctaedre dup 0.8 solidchampfreine dup videsolid dup (Gray) outputcolors dup (Gray8) inputcolors } def /sph6 {% 0.2 -90 0 [6 18] newcalottespherecreuse dup (Gray) outputcolors dup (White) inputcolors } def sph1 cub1 solidfuz sph2 solidfuz tet1 solidfuz sph3 solidfuz dod1 solidfuz sph4 solidfuz ico1 solidfuz sph5 solidfuz tet2 solidfuz sph6 solidfuz drawsolid** } \end{pspicture} \end{document}