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