Réorganisation des dossiers « anamorphoses »

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

diff --git a/img/serie02/pavage2.tex b/img/serie02/pavage2.tex
new file mode 100644 (file)
index 0000000..a3dac8a
--- /dev/null
+++ b/img/serie02/pavage2.tex
@@ -0,0 +1,69 @@
+\documentclass[a4paper]{article}
+\usepackage[T1]{fontenc}
+\usepackage{pst-anamorphosis-add}
+\definecolor{sepia}{rgb}{1,0.8,0.8}
+\pagestyle{empty}
+\begin{document}
+\section*{Esquisse de l'image d'un pavage classique}
+\begin{center}
+%\psset{unit=0.75}
+\begin{pspicture}(-6,-6)(6,6)
+\psset{type=conical}
+\pscircle[doubleline=true]{3}
+\multido{\nY=-2.0+1.0}{4}{%
+\multido{\nX=-2.0+1.0}{4}{%
+    \psframe*[linecolor=sepia](!\nX\space \nY\space)(!\nX\space 0.5 add \nY\space 0.5
+    add)
+    \psframe*[linecolor=sepia](!\nX\space 0.5 add \nY\space 0.5 add)%
+    (!\nX\space 1 add \nY\space 1 add)
+}}
+\multido{\nY=-2.0+1.0}{2}{%
+\multido{\nX=-2.0+1.0}{4}{%
+\psset{linecolor=blue,linewidth=1mm}%
+    \pslineA[fillstyle=solid,fillcolor=cyan!50](!\nX\space \nY\space)(!\nX\space \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space)(!\nX\space \nY\space)
+    }}
+\multido{\nY=0.5+1.0}{2}{%
+\multido{\nX=-1.5+1.0}{4}{%
+\psset{linecolor=red,linewidth=1mm}%
+    \pslineA[fillstyle=solid,fillcolor=sepia](!\nX\space \nY\space)(!\nX\space \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space 0.5 add)(!\nX\space 0.5 add \nY\space)(!\nX\space \nY\space)
+    }}
+\pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,0)(-2,0.5)(-1.5,0.5)(-1.5,0)(-2,0)
+\pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,1)(-2,1.5)(-1.5,1.5)(-1.5,1)(-2,1)
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(-1,1)
+    \pslineA(-1,1)(-1,1.5)(-0.5,1.5)(-0.5,1)(-1,1)
+    \closepath}
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(1,1)
+    \pslineA(1,1)(1,1.5)(1.5,1.5)(1.5,1)(1,1)
+    \closepath}
+\pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
+    \movetoA(0,1)
+    \pslineA(0,1)(0,1.5)(0.5,1.5)(0.5,1)(0,1)
+    \closepath}
+\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)
+    }
+\psline(-2,0)(2,0)
+\psline(0,-2)(0,2)
+\end{pspicture}
+\end{center}
+
+\end{document} 
\ No newline at end of file