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}
6 \pscircle[linestyle=none
](
0,
0)
{1.75}}
7 \pscircle[fillstyle=solid,fillcolor=lightgray
](-
2.5,
0)
{0.9}
11 \begin{pspicture
}(-
2,-
6)(
15,
6)
13 \newcommand\Rmirror{3}
14 \psset{viewpoint=-
1 -
1 1}
15 \ThreeDput[normal=
0 0 1](
0,
0,
0)
{%
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
}
29 \input{ALouisXIII.pst
}
30 \pstextA[fontsize=
28,linecolor=red,fillstyle=solid,fillcolor=yellow!
50](
0,
2)
{LouisXIII
}
32 \FPmul{\largeur}{\Rmirror}{0.1745}
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
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}
51 \ThreeDput[normal=-
1 0 0](
0,
0,
0)
{%
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)
58 \psline{->
}(
6,
0)(
4.5,
0.75)
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'$
}}