summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/examples/pattern4.tex
blob: 38c4098046e317eaf46521840ba55239eccdd0b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
\documentclass{article}
\usepackage{pstricks-add}
\usepackage[a4paper]{geometry}
\pagestyle{empty}
\begin{document}
\psset{dimen=inner,linewidth=0pt}
\begin{pspicture}(-8,-8)(8,8)


\def\carre{%
\pnode(-1.5,1.5){AL1}\pnode(1.5,-1.5){AR1}
\pnode(-1.5,1.2){AL2}\pnode(1.5,-1.2){AR2}
\pnode(-1.5,0.9){AL3}\pnode(1.5,-0.9){AR3}
\pnode(-1.5,0.7){AL4}\pnode(1.5,-0.7){AR4}
\pnode(-1.5,0.4){AL5}\pnode(1.5,-0.4){AR5}
\pnode(-1.5,0.2){AL6}\pnode(1.5,-0.2){AR6}
\pnode(-1.5,0.0){AL7}\pnode(1.5,0.0){AR7}
\pnode(-1.5,-0.2){AL8}\pnode(1.5,0.2){AR8}
\pnode(-1.5,-0.4){AL9}\pnode(1.5,0.4){AR9}
\pnode(-1.5,-0.6){AL10}\pnode(1.5,0.6){AR10}
\pnode(-1.5,-0.75){AL11}\pnode(1.5,0.75){AR11}
\pnode(-1.5,-0.9){AL12}\pnode(1.5,0.9){AR12}
\pnode(-1.5,-1.05){AL13}\pnode(1.5,1.05){AR13}
\pnode(-1.5,-1.15){AL14}\pnode(1.5,1.15){AR14}
\pnode(-1.5,-1.25){AL15}\pnode(1.5,1.25){AR15}
\pnode(-1.5,-1.3){AL16}\pnode(1.5,1.3){AR16}
\pnode(-1.5,-1.4){AL17}\pnode(1.5,1.4){AR17}
\pnode(-1.5,-1.45){AL18}\pnode(1.5,1.45){AR18}
\pspolygon[fillstyle=solid,fillcolor=black](AL1)(AR1)(AR2)(AL2)
\pspolygon[fillstyle=solid,fillcolor=black](AL3)(AR3)(AR4)(AL4)
\pspolygon[fillstyle=solid,fillcolor=black](AL5)(AR5)(AR6)(AL6)
\pspolygon[fillstyle=solid,fillcolor=black](AL7)(AR7)(AR8)(AL8)
\pspolygon[fillstyle=solid,fillcolor=black](AL9)(AR9)(AR10)(AL10)
\pspolygon[fillstyle=solid,fillcolor=black](AL11)(AR11)(AR12)(AL12)
\pspolygon[fillstyle=solid,fillcolor=black](AL13)(AR13)(AR14)(AL14)
\pspolygon[fillstyle=solid,fillcolor=black](AL15)(AR15)(AR16)(AL16)
\pspolygon[fillstyle=solid,fillcolor=black](AL17)(AR17)(AR18)(AL18)
\pnode(-1.2,1.5){BL1}\pnode(1.2,-1.5){BR1}
\pnode(-0.9,1.5){BL2}\pnode(0.9,-1.5){BR2}
\pnode(-0.7,1.5){BL3}\pnode(0.7,-1.5){BR3}
\pnode(-0.4,1.5){BL4}\pnode(0.4,-1.5){BR4}
\pnode(-0.2,1.5){BL5}\pnode(0.2,-1.5){BR5}
\pnode(0.0,1.5){BL6}\pnode(0,-1.5){BR6}
\pnode(0.2,1.5){BL7}\pnode(-0.2,-1.5){BR7}
\pnode(0.4,1.5){BL8}\pnode(-0.4,-1.5){BR8}
\pnode(0.6,1.5){BL9}\pnode(-0.6,-1.5){BR9}
\pnode(0.75,1.5){BL10}\pnode(-0.75,-1.5){BR10}
\pnode(0.9,1.5){BL11}\pnode(-0.9,-1.5){BR11}
\pnode(1.05,1.5){BL12}\pnode(-1.05,-1.5){BR12}
\pnode(1.15,1.5){BL13}\pnode(-1.15,-1.5){BR13}
\pnode(1.25,1.5){BL14}\pnode(-1.25,-1.5){BR14}
\pnode(1.3,1.5){BL15}\pnode(-1.3,-1.5){BR15}
\pnode(1.4,1.5){BL16}\pnode(-1.4,-1.5){BR16}
\pnode(1.45,1.5){BL17}\pnode(-1.45,-1.5){BR17}
\pnode(1.5,1.5){BL18}\pnode(-1.5,-1.5){BR18}
\pspolygon[fillstyle=solid,fillcolor=black](BL1)(BR1)(BR2)(BL2)
\pspolygon[fillstyle=solid,fillcolor=black](BL3)(BR3)(BR4)(BL4)
\pspolygon[fillstyle=solid,fillcolor=black](BL5)(BR5)(BR6)(BL6)
\pspolygon[fillstyle=solid,fillcolor=black](BL7)(BR7)(BR8)(BL8)
\pspolygon[fillstyle=solid,fillcolor=black](BL9)(BR9)(BR10)(BL10)
\pspolygon[fillstyle=solid,fillcolor=black](BL11)(BR11)(BR12)(BL12)
\pspolygon[fillstyle=solid,fillcolor=black](BL13)(BR13)(BR14)(BL14)
\pspolygon[fillstyle=solid,fillcolor=black](BL15)(BR15)(BR16)(BL16)
\pspolygon[fillstyle=solid,fillcolor=black](BL17)(BR17)(BR18)(BL18)
}

\def\half{%
\rput(0,0){\carre}
\rput(-3,0){\psscalebox{-1 1}{\carre}}
}

\def\pattern{%
\rput(0,0){\half}
\rput(0,-3){\psscalebox{1 -1}{\half}}
}

\multido{\iA=0+6}{2}{%
  \multido{\iB=0+-6}{3}{%
    \rput(\iA,\iB){\pattern}
}}
\end{pspicture}
\end{document}