pavage2.tex

\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}