Merge branch 'master' of ssh://melusine.eu.org:223/pst-anamorphosis
[pst-anamorphosis.git] / img / serie01 / exemples_pavages_conique.tex
1 \documentclass[a4paper]{article}
2 \usepackage[T1]{fontenc}
3 \usepackage{pst-anamorphosis-add}
4 \definecolor{sepia}{rgb}{1,0.8,0.8}
5 \begin{document}
6 \section{Image d'un pavage avec des cercles}
7 \begin{center}
8 \psset{type=conical}
9 %\psset{unit=0.7}
10 \begin{pspicture}[showgrid](-7,-7)(7,7)
11 \pscircle[doubleline=true]{3}
12 {\psset{linecolor=red}
13 \pnodeA(-0.5,-1){I}
14 \pnodeA(-0.5,1){J}
15 \pnodeA(1,1){K}
16 \pnodeA(1,-1){L}
17 \pnode(-0.5,-1){I'}
18 \pnode(-0.5,1){J'}
19 \pnode(1,1){K'}
20 \pnode(1,-1){L'}
21 \pslineA(-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
22 %\psdots[dotsize=2mm](I)(J)(K)(L)(I')(J')(K')(L')
23 \psframe(-0.5,-1)(1,1)}
24 \multido{\N=-1.5+1.0}{4}{
25 \multido{\n=-1.5+1.0}{4}{%
26 \pscircle[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
27 }}
28 \multido{\N=-1.5+1.0}{4}{
29 \multido{\n=-1.5+1.0}{4}{%
30 \pscircleA[fillstyle=solid,fillcolor=sepia](\n,\N){0.5}
31 }}
32 \multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
33 \pnode(! \n\space -2){A}
34 \pnode(! \n\space 2){B}
35 \psline(A)(B)
36 \pslineA(A)(B)
37 \pnode(!-2 \N){A}
38 \pnode(!2 \N){B}
39 \pslineA(A)(B)
40 \psline(A)(B)
41 }
42 \multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
43 \pnode(! \n\space -2){A}
44 \pnode(! \n\space 2){B}
45 \psline(A)(B)
46 \pslineA(A)(B)
47 \pnode(!-2 \N){A}
48 \pnode(!2 \N){B}
49 \pslineA(A)(B)
50 \psline(A)(B)
51 }
52 \pnodeA(-0.5,-1){I}
53 \pnodeA(-0.5,1){J}
54 \pnodeA(1,1){K}
55 \pnodeA(1,-1){L}
56 \pnode(-0.5,-1){I'}
57 \pnode(-0.5,1){J'}
58 \pnode(1,1){K'}
59 \pnode(1,-1){L'}
60 \pslineA[linecolor=blue](-0.5,-1)(-0.5,1)(1,1)(1,-1)(-0.5,-1)
61 \psframe[linecolor=blue](I')(K')
62 \psdots[dotsize=2mm,linecolor=red](I)(J)(K)(L)(I')(J')(K')(L')
63 \end{pspicture}
64 \end{center}
65 \section{Esquisse de l'image d'un pavage classique}
66 \begin{center}
67 %\psset{unit=0.75}
68 \begin{pspicture}(-6,-6)(6,6)
69 \psset{type=conical}
70 \pscircle[doubleline=true]{3}
71 \multido{\nY=-2.0+1.0}{4}{%
72 \multido{\nX=-2.0+1.0}{4}{%
73 \psframe*[linecolor=sepia](!\nX\space \nY\space)(!\nX\space 0.5 add \nY\space 0.5
74 add)
75 \psframe*[linecolor=sepia](!\nX\space 0.5 add \nY\space 0.5 add)%
76 (!\nX\space 1 add \nY\space 1 add)
77 }}
78 \multido{\nY=-2.0+1.0}{2}{%
79 \multido{\nX=-2.0+1.0}{4}{%
80 \psset{linecolor=blue,linewidth=1mm}%
81 \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)
82 }}
83 \multido{\nY=0.5+1.0}{2}{%
84 \multido{\nX=-1.5+1.0}{4}{%
85 \psset{linecolor=red,linewidth=1mm}%
86 \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)
87 }}
88 \pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,0)(-2,0.5)(-1.5,0.5)(-1.5,0)(-2,0)
89 \pslineA[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm](-2,1)(-2,1.5)(-1.5,1.5)(-1.5,1)(-2,1)
90 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
91 \movetoA(-1,1)
92 \pslineA(-1,1)(-1,1.5)(-0.5,1.5)(-0.5,1)(-1,1)
93 \closepath}
94 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
95 \movetoA(1,1)
96 \pslineA(1,1)(1,1.5)(1.5,1.5)(1.5,1)(1,1)
97 \closepath}
98 \pscustom[fillstyle=solid,fillcolor=sepia,linecolor=red,linewidth=1mm]{
99 \movetoA(0,1)
100 \pslineA(0,1)(0,1.5)(0.5,1.5)(0.5,1)(0,1)
101 \closepath}
102 \multido{\n=0.5+0.5,\N=0.5+0.5}{4}{%
103 \pnode(! \n\space -2){A}
104 \pnode(! \n\space 2){B}
105 \psline(A)(B)
106 \pslineA(A)(B)
107 \pnode(!-2 \N){A}
108 \pnode(!2 \N){B}
109 \pslineA(A)(B)
110 \psline(A)(B)
111 }
112 \multido{\n=-2.0+0.5,\N=-2.0+0.5}{4}{%
113 \pnode(! \n\space -2){A}
114 \pnode(! \n\space 2){B}
115 \psline(A)(B)
116 \pslineA(A)(B)
117 \pnode(!-2 \N){A}
118 \pnode(!2 \N){B}
119 \pslineA(A)(B)
120 \psline(A)(B)
121 }
122 \psline(-2,0)(2,0)
123 \psline(0,-2)(0,2)
124 \end{pspicture}
125 \end{center}
126
127 \end{document}

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.