%% Auteur : Manuel Luque
%%
%\subsection{Modèle éclaté du $\mathrm{N_2}$}

\begin{pspicture}(-7,-2)(7,5)
\psset{lightsrc=92 16 35,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
  /Nitrogen {
  5 -30 90 [16 18] newcalottesphere
  {0 180 0 rotateOpoint3d} solidtransform
  dup videsolid
  dup (bleu) outputcolors
  } def
/Liaison {
     0 0.5 15  [18 10] newcylindre
      dup (White) outputcolors
   } def
/L1 {Liaison {0 -1.5 2 translatepoint3d} solidtransform } def
/L2 {Liaison {0  1.5 2 translatepoint3d} solidtransform } def
/L3 {Liaison {0  0 2 translatepoint3d} solidtransform } def
/NitrogenL1 {Nitrogen L1 solidfuz} def
/NitrogenL12 {NitrogenL1 L2 solidfuz} def
/NitrogenL123 {NitrogenL12 L3 solidfuz} def
/N2{NitrogenL123 Nitrogen {0 180 0 rotateOpoint3d} solidtransform {0 0 17 translatepoint3d} solidtransform solidfuz} def
N2 {60 0 0 rotateOpoint3d} solidtransform {0 0 45 rotateOpoint3d} solidtransform drawsolid**}
\axesIIID(2.5,2.5,2.5)(15,15,15)
\end{pspicture}