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

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

\begin{pspicture}(-9,-9)(9,9)
\psframe(-5,-5)(5,5)%
\begin{psclip}{\pspolygon[linewidth=4pt](4;90)(2;126)(4;162)(2;198)(4;234)(2;270)(4;306)(2;342)(4;18)(2;54)}
\multido{\iA=0+9}{40}{%
\rput{\iA}(0,0){
\pscustom[fillstyle=solid,fillcolor=black]{%
\psparametricplot[algebraic]{-9}{0}{0.5*t*sin(0.2*t)|0.5*t*cos(0.2*t)}
\psparametricplot[algebraic]{0}{-9}{0.525*t*sin(0.2*t)|0.525*t*cos(0.2*t)}
}}}
\end{psclip}
\end{pspicture}

\newpage

\begin{pspicture}(-9,-9)(9,9)
\psframe(-5,-5)(5,5)%
\begin{psclip}{\pspolygon[linewidth=4pt](4;90)(2;126)(4;162)(2;198)(4;234)(2;270)(4;306)(2;342)(4;18)(2;54)}
\multido{\iA=0+9}{40}{%
\rput{\iA}(0,0){
\pscustom[fillstyle=solid,fillcolor=black]{%
\psparametricplot[algebraic]{0}{-9}{0.525*t*sin(0.2*t)|-0.525*t*cos(0.2*t)}
\psparametricplot[algebraic]{-9}{0}{0.5*t*sin(0.2*t)|-0.5*t*cos(0.2*t)}
}}}
\end{psclip}
\end{pspicture}

\end{document}