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

\begin{pspicture}(-4,-3)(4,5)
\psset{lightsrc=10 50 10,lightintensity=2,
       viewpoint=100 30 20 rtp2xyz,Decran=30}
\psset{linecolor={[cmyk]{0 0.72 1 0.45}},
       linewidth=0.5\pslinewidth}
\codejps{
% r phi theta [ngrid] newcalottesphere
  /Chlore1 {
  5 -30 90 [16 18] newcalottesphere
  {90 0 0 rotateOpoint3d} solidtransform
  {0 -2.5 0 translatepoint3d} solidtransform
  dup videsolid
  dup (Green) outputcolors
  } def
  /Chlore2 {
  5 -30 90 [16 18] newcalottesphere
  {-90 0 0 rotateOpoint3d} solidtransform
  {0 2.5 0 translatepoint3d} solidtransform
  dup (Green) outputcolors
  } def
  /dichlore{
  Chlore1 Chlore2 solidfuz
  } def
  dichlore drawsolid**}
\axesIIID(2.5,7.5,2.5)(15,15,12)
\end{pspicture}