%% Auteur : Manuel Luque
%%
%\subsection{$\mathrm{CO_2}$ : modèle compact}

\begin{pspicture}(-4,-3)(4,3)
\pstVerb{/DarkGray {0.2 setgray} def}%
\psset{lightsrc=92 16 35,lightintensity=2,
       viewpoint=100 10 20 rtp2xyz,Decran=30}
\psset{linecolor={[cmyk]{0 0.72 1 0.45}},
       linewidth=0.5\pslinewidth}
\codejps{
% r phi theta [ngrid] newcalottesphere
  /Oxygen {
  5 -30 90 [16 18] newcalottesphere
  dup videsolid
  dup (rouge) outputcolors
  } def
  /Carbon {
  5 -30 30 [16 18] newcalottesphere
  {90 0 0 rotateOpoint3d} solidtransform
  dup (DarkGray) outputcolors
  } def
  /Oxygen1 {
    Oxygen {90 0 0 rotateOpoint3d} solidtransform
       {0 -4.33 0 translatepoint3d} solidtransform } def
  /Oxygen2 {
    Oxygen {-90 0 0 rotateOpoint3d} solidtransform
        {0 4.33 0 translatepoint3d} solidtransform } def
  /CO{Oxygen1 Carbon solidfuz} def
  /CO2 {CO Oxygen2 solidfuz} def
  CO2 drawsolid**}
\axesIIID(2.5,7.5,2.5)(15,15,12)
\end{pspicture}