From: Manuel <manuel.luque27@gmail.com>
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/?p=pst-anamorphosis.git;a=commitdiff_plain;h=3c612ec138b61e63b59a3a5f19bf6fb945daf058

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}