Les rayures dans le cône : pur PStricks.

[pst-anamorphosis.git] / img / serie02 / rayures.tex

diff --git a/img/serie02/rayures.tex b/img/serie02/rayures.tex
new file mode 100644 (file)
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}