From: Manuel Date: Fri, 21 Oct 2011 04:47:22 +0000 (+0200) Subject: Les rayures dans le cône : pur PStricks. X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=3c612ec138b61e63b59a3a5f19bf6fb945daf058;p=pst-anamorphosis.git Les rayures dans le cône : pur PStricks. --- diff --git a/img/serie02/LISTE.txt b/img/serie02/LISTE.txt index 5d8dabd..65f01ba 100644 --- a/img/serie02/LISTE.txt +++ b/img/serie02/LISTE.txt @@ -3,3 +3,4 @@ pavage2.png parapluie.png parapluie.eps sinus.png +rayures.png diff --git a/img/serie02/rayures.pdf b/img/serie02/rayures.pdf new file mode 100644 index 0000000..4255420 Binary files /dev/null and b/img/serie02/rayures.pdf differ diff --git a/img/serie02/rayures.png b/img/serie02/rayures.png new file mode 100644 index 0000000..52b09b8 Binary files /dev/null and b/img/serie02/rayures.png differ diff --git a/img/serie02/rayures.tex b/img/serie02/rayures.tex new file mode 100644 index 0000000..96118cd --- /dev/null +++ b/img/serie02/rayures.tex @@ -0,0 +1,40 @@ +\documentclass{article} +\usepackage{pst-anamorphosis-add} +\usepackage[a4paper]{geometry} +\pagestyle{empty} +\begin{document} +\begin{center} +\begin{pspicture}[showgrid](-6.25,-6.25)(6.25,6.25) +\psframe*[linecolor=blue](-6.25,-6.25)(6.25,6.25) +\psset{Rmirror=3,type=conical} +\psset{linewidth=0.5\pslinewidth} +\psclip{\pscircleA[linestyle=none](0,0){0.25}} +\multido{\n=-3.25+0.50}{7}{% + \pnode(! \n\space -3.25){A} + \pnode(! \n\space 3.25){B} + \pslineA[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B) + } +\multido{\n=0.25+0.50}{7}{% + \pnode(! \n\space -3.25){A} + \pnode(! \n\space 3.25){B} + \pslineA[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B) + } +\endpsclip +\pscircle*[linecolor=blue]{3} +\psclip{\pscircle[linestyle=none](0,0){3}} +\multido{\n=-3.25+0.50}{7}{% + \pnode(! \n\space -3.25){A} + \pnode(! \n\space 3.25){B} + \psline[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B) + } +\multido{\n=0.25+0.50}{7}{% + \pnode(! \n\space -3.25){A} + \pnode(! \n\space 3.25){B} + \psline[linewidth=2.5mm,linecolor={[rgb]{1 0.75 0}},linecap=1](A)(B) + } +\endpsclip +\pscircle[linecolor=white]{3} +\psdot[linecolor=white,dotsize=4\pslinewidth](0,0) +\end{pspicture} +\end{center} +\end{document}