\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Juergen Gilg %@DATE: 18 février 2008 \psset{unit=1.5} \psset{lightsrc=55 15 45,SphericalCoor=true,viewpoint=50 -20 30,Decran=50} \begin{pspicture}(-4,-6)(8,6) \codejps{ /Paleblue {0.8 0.8 1 setrgbcolor} 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 /Gray8 {0.8 setgray} def /Gray9 {0.9 setgray} def % .001 setlinewidth % /sph1 {% 6 -90 0 [24 72] newcalottespherecreuse dup (LimeGreen) outputcolors dup (Gray8) inputcolors } def % /cub1 {% 6 newcube dup 0.9 solidchampfreine dup videsolid dup (BlueViolet) outputcolors dup (Gray7) inputcolors } def % /sph2 {% 3 -90 0 [12 36] newcalottespherecreuse dup (Emerald) outputcolors dup (Gray7) inputcolors } def % /tet1 {% 3 newtetraedre dup 0.9 solidchampfreine dup videsolid dup (MidnightBlue) outputcolors dup (Gray7) inputcolors } def % /sph3 {% 1.5 -90 0 [12 36] newcalottespherecreuse dup (BlueGreen) outputcolors dup (Gray6) inputcolors } def % /dod1 {% 1.3 newdodecaedre dup 0.9 solidchampfreine dup videsolid dup (ProcessBlue) outputcolors dup (Gray8) inputcolors } def % /sph4 {% 0.85 -90 0 [6 18] newcalottespherecreuse dup (Turquoise) outputcolors dup (Gray5) inputcolors } def % /ico1 {% 0.7 newicosaedre dup 0.8 solidchampfreine dup videsolid dup (Aquamarine) outputcolors dup (Gray8) inputcolors } def % /sph5 {% 0.5 -90 0 [6 18] newcalottespherecreuse dup (ProcessBlue) outputcolors dup (Gray4) inputcolors } def % /tet2 {% 0.4 newoctaedre dup 0.8 solidchampfreine dup videsolid dup (Green) outputcolors dup (Gray4) inputcolors } def % /sph6 {% 0.2 -90 0 [6 18] newcalottespherecreuse dup (Blue) outputcolors dup (White) inputcolors } def % /sph7 {% 0.125 [6 18] newsphere dup (Yellow) 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 sph7 solidfuz drawsolid** } \end{pspicture} \end{document}