img/serie02/pavage2.tex

   1 \documentclass[a4paper]{article}
   2 \usepackage[T1]{fontenc}
   3 \usepackage{pst-anamorphosis-add}
   4 \definecolor{sepia}{rgb}{1,0.8,0.8}
   5 \pagestyle{empty}
   6 \begin{document}
   7 \section*{Esquisse de l'image d'un pavage classique}
   8 \begin{center}
   9 %\psset{unit=0.75}
  10 \begin{pspicture}(-6,-6)(6,6)
  11 \psset{type=conical}
  12 \pscircle[doubleline=true]{3}
  13 \multido{\nY=-2.0+1.0}{4}{%
  14 \multido{\nX=-2.0+1.0}{4}{%
  15     \psframe*[linecolor=sepia](!\nX\space \nY\space)(!\nX\space 0.5 add \nY\space 0.5
  16     add)
  17     \psframe*[linecolor=sepia](!\nX\space 0.5 add \nY\space 0.5 add)%
  18     (!\nX\space 1 add \nY\space 1 add)
  19 }}
  20 \multido{\nY=-2.0+1.0}{2}{%
  21 \multido{\nX=-2.0+1.0}{4}{%
  22 \psset{linecolor=blue,linewidth=1mm}%
  23     \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)
  24     }}
  25 \multido{\nY=0.5+1.0}{2}{%
  26 \multido{\nX=-1.5+1.0}{4}{%
  27 \psset{linecolor=red,linewidth=1mm}%
  28     \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)
  29     }}
  30 \pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,0)(-2,0.5)(-1.5,0.5)(-1.5,0)(-2,0)
  31 \pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,1)(-2,1.5)(-1.5,1.5)(-1.5,1)(-2,1)
  32 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
  33     \movetoA(-1,1)
  34     \pslineA(-1,1)(-1,1.5)(-0.5,1.5)(-0.5,1)(-1,1)
  35     \closepath}
  36 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
  37     \movetoA(1,1)
  38     \pslineA(1,1)(1,1.5)(1.5,1.5)(1.5,1)(1,1)
  39     \closepath}
  40 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
  41     \movetoA(0,1)
  42     \pslineA(0,1)(0,1.5)(0.5,1.5)(0.5,1)(0,1)
  43     \closepath}
  44 \multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
  45     \pnode(! \n\space -2){A}
  46     \pnode(! \n\space 2){B}
  47     \psline(A)(B)
  48     \pslineA(A)(B)
  49     \pnode(!-2 \N){A}
  50     \pnode(!2 \N){B}
  51     \pslineA(A)(B)
  52     \psline(A)(B)
  53     }
  54 \multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
  55     \pnode(! \n\space -2){A}
  56     \pnode(! \n\space 2){B}
  57     \psline(A)(B)
  58     \pslineA(A)(B)
  59     \pnode(!-2 \N){A}
  60     \pnode(!2 \N){B}
  61     \pslineA(A)(B)
  62     \psline(A)(B)
  63     }
  64 \psline(-2,0)(2,0)
  65 \psline(0,-2)(0,2)
  66 \end{pspicture}
  67 \end{center}
  68
  69 \end{document}