\documentclass{article} \usepackage{pst-solides3d} \begin{document} \pagestyle{empty} %\subsection{Modèle compact de l'acétylène} \begin{pspicture}(-7,-2)(7,5) \psset{lightsrc=92 16 35,lightintensity=2,linewidth=0.5\pslinewidth, viewpoint=100 30 20 rtp2xyz,Decran=30} \pstVerb{/DarkGray {0.5 setgray} def}% \codejps{ % r phi theta [ngrid] newcalottesphere /Carbon { 4 -48.6 48.6 [16 18] newcalottesphere {0 90 0 rotateOpoint3d} solidtransform dup (DarkGray) outputcolors } def /Hydrogen { 3.317 -37.1 90 [16 18] newcalottesphere dup videsolid dup (White) outputcolors } def /C2H2 {Hydrogen {0 -90 0 rotateOpoint3d} solidtransform {-8 0 0 translatepoint3d} solidtransform Carbon {-3 0 0 translatepoint3d} solidtransform solidfuz Carbon {3 0 0 translatepoint3d} solidtransform solidfuz Hydrogen {0 90 0 rotateOpoint3d} solidtransform {8 0 0 translatepoint3d} solidtransform solidfuz} def C2H2 {0 0 90 rotateOpoint3d} solidtransform drawsolid**} \axesIIID(2.5,2.5,2.5)(15,15,15) \end{pspicture} \end{document}