summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-moire/examples/pattern1.tex
blob: 2d8a0a47251c5c62d3e3b39206543fad5d45faec (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
\documentclass{article}
\usepackage{pstricks-add}
\usepackage[a4paper]{geometry}
\pagestyle{empty}
\begin{document}


\psset{
%linestyle=none,
dimen=inner,
linewidth=0pt}

\def\carre{%
\begin{psclip}{\pspolygon[linewidth=0pt,linestyle=none](-1.5,-1.5)(-1.5,1.5)(1.5,1.5)(1.5,-1.5)}
\multido{\rA=0.1+0.15,\rC=0.2+0.15,\rB=0.025+0.05}{40}{%
\pscircle[linewidth=1.25pt](\rB,0){\rA}
\pscircle[linewidth=0.7pt](-\rB,0){\rC}
}
\def\lines{%
\psline[linewidth=2pt](-1.5,1.5)(0,0)
\psline[linewidth=1.75pt](-1.5,1.25)(-0.25,0)
\psline[linewidth=1.5pt](-1.5,1)(-0.5,0)
\psline[linewidth=1.25pt](-1.5,0.75)(-0.75,0)
\psline[linewidth=1pt](-1.5,0.5)(-1,0)
\psline[linewidth=0.75pt](-1.5,0.25)(-1.25,0)
}
%\rput(0,0){\lines}
%\rput{90}(0,0){\lines}
%\rput{180}(0,0){\lines}
%\rput{270}(0,0){\lines}
\end{psclip}
}

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

\def\manuel{%
\multido{\iA=0+6}{2}{
\multido{\iB=0+-6}{3}{
\rput(\iA,\iB){\pattern}
}}
}
\begin{pspicture}(-7,-9)(7,9)
\rput(-1.5,7.5){\manuel}
%\rput{5}(-1.5,7.5){\manuel}
\end{pspicture}
\end{document}