Réorganisation des dossiers « anamorphoses »

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

diff --git a/img/serie02/pavage1.tex b/img/serie02/pavage1.tex
new file mode 100644 (file)
index 0000000..ff8337f
--- /dev/null
+++ b/img/serie02/pavage1.tex
@@ -0,0 +1,66 @@
+\documentclass[a4paper]{article}
+\usepackage[T1]{fontenc}
+\usepackage{pst-anamorphosis-add}
+\definecolor{sepia}{rgb}{1,0.8,0.8}
+\pagestyle{empty}
+\begin{document}
+\section*{Image d'un pavage avec des cercles}
+\begin{center}
+\psset{type=conical}
+%\psset{unit=0.7}
+\begin{pspicture}[showgrid](-7,-7)(7,7)
+\pscircle[doubleline=true]{3}
+{\psset{linecolor=red}
+\pnodeA(-0.5,-1){I}
+\pnodeA(-0.5,1){J}
+\pnodeA(1,1){K}
+\pnodeA(1,-1){L}
+\pnode(-0.5,-1){I'}
+\pnode(-0.5,1){J'}
+\pnode(1,1){K'}
+\pnode(1,-1){L'}
+\pslineA(-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
+%\psdots[dotsize=2mm](I)(J)(K)(L)(I')(J')(K')(L')
+\psframe(-0.5,-1)(1,1)}
+\multido{\N=-1.5+1.0}{4}{
+\multido{\n=-1.5+1.0}{4}{%
+    \pscircle[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
+    }}
+\multido{\N=-1.5+1.0}{4}{
+\multido{\n=-1.5+1.0}{4}{%
+    \pscircleA[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
+    }}
+\multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
+    \pnode(! \n\space -2){A}
+    \pnode(! \n\space 2){B}
+    \psline(A)(B)
+    \pslineA(A)(B)
+    \pnode(!-2 \N){A}
+    \pnode(!2 \N){B}
+    \pslineA(A)(B)
+    \psline(A)(B)
+    }
+\pnodeA(-0.5,-1){I}
+\pnodeA(-0.5,1){J}
+\pnodeA(1,1){K}
+\pnodeA(1,-1){L}
+\pnode(-0.5,-1){I'}
+\pnode(-0.5,1){J'}
+\pnode(1,1){K'}
+\pnode(1,-1){L'}
+\pslineA[linecolor=blue](-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
+\psframe[linecolor=blue](I')(K')
+\psdots[dotsize=2mm,linecolor=red](I)(J)(K)(L)(I')(J')(K')(L')
+\end{pspicture}
+\end{center}
+\end{document}
\ No newline at end of file