\documentclass[a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage{pst-anamorphosis-add}
\definecolor{sepia}{rgb}{1,0.8,0.8}
\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}
\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} 