Les rayures dans le cône : pur PStricks.
[pst-anamorphosis.git] / img / serie02 / rayures.tex
1 \documentclass{article}
2 \usepackage{pst-anamorphosis-add}
3 \usepackage[a4paper]{geometry}
4 \pagestyle{empty}
5 \begin{document}
6 \begin{center}
7 \begin{pspicture}[showgrid](-6.25,-6.25)(6.25,6.25)
8 \psframe*[linecolor=blue](-6.25,-6.25)(6.25,6.25)
9 \psset{Rmirror=3,type=conical}
10 \psset{linewidth=0.5\pslinewidth}
11 \psclip{\pscircleA[linestyle=none](0,0){0.25}}
12 \multido{\n=-3.25+0.50}{7}{%
13 \pnode(! \n\space -3.25){A}
14 \pnode(! \n\space 3.25){B}
15 \pslineA[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B)
16 }
17 \multido{\n=0.25+0.50}{7}{%
18 \pnode(! \n\space -3.25){A}
19 \pnode(! \n\space 3.25){B}
20 \pslineA[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B)
21 }
22 \endpsclip
23 \pscircle*[linecolor=blue]{3}
24 \psclip{\pscircle[linestyle=none](0,0){3}}
25 \multido{\n=-3.25+0.50}{7}{%
26 \pnode(! \n\space -3.25){A}
27 \pnode(! \n\space 3.25){B}
28 \psline[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B)
29 }
30 \multido{\n=0.25+0.50}{7}{%
31 \pnode(! \n\space -3.25){A}
32 \pnode(! \n\space 3.25){B}
33 \psline[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B)
34 }
35 \endpsclip
36 \pscircle[linecolor=white]{3}
37 \psdot[linecolor=white,dotsize=4\pslinewidth](0,0)
38 \end{pspicture}
39 \end{center}
40 \end{document}

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.