%% Auteur : Manuel Luque
%%
%\subsection{$\mathrm{Cl_2}$ : modèle éclaté}

\begin{pspicture}(-5,-5)(5,5)
\psset{lightsrc=10 50 10,lightintensity=2,viewpoint=100 30 30,Decran=30,SphericalCoor}
\psset{linecolor={[cmyk]{0 0.72 1 0.45}},linewidth=0.5\pslinewidth}
\codejps{
 /Chlore1 {5  -30 90 [16 18] newcalottesphere
  {90 0 0 rotateOpoint3d} solidtransform
    {0 -10 0 translatepoint3d} solidtransform
    dup (Green) outputcolors } def
/Chlore2 {5  -30 90 [16 18] newcalottesphere
 {-90 0 0 rotateOpoint3d} solidtransform
  {0 10 0 translatepoint3d} solidtransform
  dup (Green) outputcolors } def
/Liaison {
     0 0.5 15  [12 10] newcylindre
     {-90 0 0 rotateOpoint3d} solidtransform
  {0 -7.5 0 translatepoint3d} solidtransform
      dup (White) outputcolors
   } def
/Cl2{Chlore1 Chlore2 solidfuz} def
/dichlore{Cl2 Liaison solidfuz} def
  dichlore drawsolid**}
\axesIIID(1,15,1)(15,20,12)
\end{pspicture}