pavage1.tex

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