Retour

mol_04.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
%\subsection{$\mathrm{CO_2}$ : modèle éclaté}
 
\begin{pspicture}(-7,-3)(7,6)
\pstVerb{/DarkGray {0.2 setgray} def}%
\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
  /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
/Liaison {
     0 0.5 15  [10 10] newcylindre
     {-90 0 0 rotateOpoint3d} solidtransform
      dup (White) outputcolors
   } def
/L1 { Liaison {0 -17.5 1.5 translatepoint3d} solidtransform } def
/L2 { Liaison {0 -17.5 -1.5 translatepoint3d} solidtransform } def
/L3 { Liaison {0 2.5 1.5 translatepoint3d} solidtransform } def
/L4 { Liaison {0 2.5 -1.5 translatepoint3d} solidtransform } def
/Oxygen1 {Oxygen {90 0 0 rotateOpoint3d} solidtransform
                 {0 -19.33 0 translatepoint3d} solidtransform } def
/Oxygen2 {Oxygen {-90 0 0 rotateOpoint3d} solidtransform
                 {0 19.33 0 translatepoint3d} solidtransform } def
/Oxygen1L1 {Oxygen1 L1 solidfuz} def
/Oxygen1L12 {Oxygen1L1 L2 solidfuz} def
/CO1L12{Oxygen1L12 Carbon solidfuz} def
/Oxygen2L3 {Oxygen2 L3 solidfuz} def
/Oxygen2L34 {Oxygen2L3 L4 solidfuz} def
/CO2 {CO1L12 Oxygen2L34  solidfuz} def
  CO2 drawsolid**}
%/L1234 {L12 L34 solidfuz} def
%L1234 drawsolid**}
\axesIIID(2.5,2.5,2.5)(15,25,15)
\end{pspicture}
 
 
\end{document}