doc/fig3d-anacyl.tex

   1 \def\oeil{\psarc[linewidth=2pt](0,2.5){2.5}{215}{270}%
   2 \psarc[linewidth=2pt](0,-2.5){2.5}{90}{140}%
   3 \psarc(-2.5,0){1}{-30}{30}%
   4 \psarc(0,0){1.75}{160}{200}
   5 \psclip{%
   6 \pscircle[linestyle=none](0,0){1.75}}
   7 \pscircle[fillstyle=solid,fillcolor=lightgray](-2.5,0){0.9}
   8 \endpsclip}%
   9 \begin{center}
  10 \begin{pspicture}(-2,-6)(15,6)
  11 \psset{Xv=0,Yv=-100}
  12 \newcommand\Rmirror{3}
  13 \psset{viewpoint=-1 -1 1}
  14 \ThreeDput[normal=0 0 1](0,0,0){%
  15 \psaxes{->}(8,4)
  16 \pscircle[doubleline=true]{\Rmirror}
  17 \multido{\i=-2+1,\I=-2+1}{5}{%
  18     \pnode(! \i\space -2){A}
  19     \pnode(! \i\space 2){B}
  20     \psline(A)(B)
  21     \pslineA(A)(B)
  22     \pnode(!-2 \I){A}
  23     \pnode(!2 \I){B}
  24     \pslineA(A)(B)
  25     \psline(A)(B)
  26     }
  27 \input{LouisXIII.pst}
  28 \input{ALouisXIII.pst}
  29 \pstextA[fontsize=28,linecolor=red,fillstyle=solid,fillcolor=yellow!50](0,2){LouisXIII}
  30     }
  31 \FPmul{\largeur}{\Rmirror}{0.1745}
  32 \newcount\n \n=135
  33      \loop
  34      \FPmul{\tempa}{\FPpi}{\the\n}
  35      \FPdiv{\angle}{\tempa}{180}
  36      \FPsin{\SIN}{\angle}\FPcos{\COS}{\angle}
  37      \FPmul{\xc}{\COS}{\Rmirror}
  38      \FPmul{\yc}{\SIN}{\Rmirror}
  39       \ThreeDput[normal={\COS} {\SIN} 0.0001](\xc,\yc,0){%
  40         \psframe[fillstyle=vlines,hatchangle=0,linestyle=none,hatchcolor=BleuCiel,](0,0)(\largeur,5)}
  41      \ifnum\n<315 \advance\n by 10
  42 \repeat
  43 \ThreeDput[normal=0.707 -0.707 0.001](2.121,-2.121,0){%
  44 \psline[linewidth=2\pslinewidth](0,5)}
  45 \ThreeDput[normal=0.707 -0.707 0.001](-2.121,2.121,0){%
  46 \psline[linewidth=2\pslinewidth](0,5)}
  47 \ThreeDput[normal=0 0 1](0,0,5){%
  48 \pscircle[doubleline=true]{\Rmirror}
  49 }
  50 \ThreeDput[normal=-1 0 0](0,0,0){%
  51 \psaxes(15,5)
  52 \rput{26.5}(21.5,10.8){\oeil}
  53 \psline[linestyle=dashed,linecolor=blue](20,10)%
  54 \psset{arrowsize=0.5,linecolor=red,linewidth=2\pslinewidth}
  55 \psline{->}(3,1.5)(10,5)
  56 \psline(3,1.5)(20,10)
  57 \psline{->}(6,0)(4.5,0.75)
  58 \psline(6,0)(3,1.5)
  59 \uput[ur](20,10){\color{red}{$V$}}
  60 \uput[u](3,1.5){\color{red}{$I$}}
  61 \uput[u](6,0){\color{red}{$M$}}
  62 }
  63 \end{pspicture}
  64 \end{center}