\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@AUTEUR: Juergen Gilg %@DATE: 21 février 2008 \psset{SphericalCoor=true,viewpoint=50 -20 20,Decran=50} \begin{pspicture}(-6.5,-6.5)(6.5,6) \psset{unit=3} \codejps{ /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 % /cube{% 3 newcube .2 solidtronque dup .8 solidchampfreine dup videsolid dup (Aquamarine) outputcolors dup (Gray7) inputcolors }def % /cube1{% 1.5 newdodecaedre .3 solidtronque dup .7 solidchampfreine dup videsolid dup (LimeGreen) outputcolors dup (Gray6) inputcolors }def % /sph {% 0.5 [12 18] newsphere dup (Orange) outputcolors dup (White) inputcolors } def cube cube1 solidfuz sph solidfuz drawsolid** } \end{pspicture} \end{document}