%% Auteur : Manuel Luque
%%
%\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}