doc/.svn/text-base/S2O3.tex.svn-base

   1 \begin{center}
   2 \begin{pspicture}(-4,-3)(4.5,5.5)
   3 \psset{lightsrc=100 10 -20,lightintensity=3,viewpoint=200 30
   4 20 rtp2xyz,Decran=40,}
   5 \psframe(-4,-3)(4.5,5.5)
   6 {\psset{linewidth=0.5\pslinewidth}
   7 \codejps{
   8 /Soufre1 {3.56  [20 16] newsphere
   9  dup (Yellow) outputcolors} def
  10 /Soufre2 {3.56  [20 16] newsphere
  11  {0 0.000 20.10 translatepoint3d} solidtransform
  12  dup (Yellow) outputcolors} def
  13 % Liaison simple
  14 /LiaisonR {
  15      7.5 0.5 15  [10 10] newcylindre
  16       dup (Red) outputcolors
  17    } def
  18 /LiaisonY {
  19      0 0.5 7.5  [10 10] newcylindre
  20       dup (Yellow) outputcolors
  21    } def
  22 % fin Liaison simple
  23 /Liaison{LiaisonR LiaisonY solidfuz} def
  24 /Ox {2.17  [20 16] newsphere
  25      {0 0 15 translatepoint3d} solidtransform
  26      dup (Red) outputcolors} def
  27 /LO { Liaison Ox solidfuz} def
  28 /LO1 { LO  {0 -109.5 0 rotateOpoint3d} solidtransform } def
  29 /LOx1 { LO1  {0 0 120 rotateOpoint3d} solidtransform } def
  30 % fin liaison simple S-O
  31 % Liaison double S=O
  32 /LiaisonD1 {Liaison {-0.75 0 0 translatepoint3d} solidtransform} def
  33 /LiaisonD2 {Liaison {0.75 0 0 translatepoint3d} solidtransform} def
  34 /LiaisonDD { LiaisonD1 LiaisonD2 solidfuz} def
  35 /LiaisonDOx {LiaisonDD Ox solidfuz} def
  36 /LiaisonDOx1 {LiaisonDOx {0 -109.5 0 rotateOpoint3d} solidtransform } def
  37 /LiaisonDOx2 {LiaisonDOx1 {0  0 -120 rotateOpoint3d} solidtransform } def
  38 /LO12 { LiaisonDOx1 LiaisonDOx2 solidfuz} def
  39 /LO123 {LO12 LOx1 solidfuz} def
  40 % liaison simple S-S
  41 /L4 { 0 0.5 20.10  [16 10] newcylindre
  42       dup (Yellow) outputcolors
  43     } def
  44 /S1L4{ Soufre1 L4 solidfuz} def
  45 /S1S2L4{ S1L4 Soufre2 solidfuz} def
  46 /S2O3 { S1S2L4 LO123 solidfuz} def
  47 S2O3  drawsolid**}
  48 \axesIIID(0,0,0)(25,20,25)}
  49 \psPoint(0,0,20.1){S2}
  50 \psPoint(-14.14,0,-5){O1}
  51 \psPoint(7.07,-12.24,-5 ){O2}
  52 \psPoint(7.07,12.24,-5 ){O3}
  53 \pcline[linestyle=dotted]{<->}(O2)(O)
  54 \aput{:U}{15 pm}
  55 \pcline[linestyle=dotted]{<->}(O)(S2)
  56 \aput{:U}{\small 20,1 pm}
  57 \pcline[linestyle=dotted]{<->}(O2)(O3)
  58 \lput*{:U}{\small 24,5 pm}
  59 \pcline[linestyle=dotted]{<->}(O2)(S2)
  60 \lput*{:U}{\small 28,8 pm}
  61 \pstMarkAngle[arrows=<->,MarkAngleRadius=0.8,linestyle=dotted]{O2}{O}{O3}{\footnotesize 109,4$^{\mathrm{o}}$}
  62 \pstMarkAngle[arrows=<->,MarkAngleRadius=0.8,linestyle=dotted]{O1}{O}{S2}{\footnotesize 109,5$^{\mathrm{o}}$}
  63 \rput(0,-2.5){$\mathrm{S_2^{\phantom{2}}O_3^{2-}}$}
  64 \end{pspicture}
  65 \end{center}