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}
10 \begin{pspicture
}(-
2,-
6)(
15,
6)
12 \newcommand\Rmirror{3}
13 \psset{viewpoint=-
1 -
1 1}
14 \ThreeDput[normal=
0 0 1](
0,
0,
0)
{%
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
}
28 \input{ALouisXIII.pst
}
29 \pstextA[fontsize=
28,linecolor=red,fillstyle=solid,fillcolor=yellow!
50](
0,
2)
{LouisXIII
}
31 \FPmul{\largeur}{\Rmirror}{0.1745}
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
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}
50 \ThreeDput[normal=-
1 0 0](
0,
0,
0)
{%
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)
57 \psline{->
}(
6,
0)(
4.5,
0.75)
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$
}}