summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/circle.tex
blob: 55ad9bc03e00a7a554223390a1b23c0558d6a972 (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
\input preamble.tex

\Defdim(\d,0)
\Defdim(\t,0)
\Defdim(\x,0)
\Defdim(\y,0)

\def\Ncirc(#1){%
 \Rad(#1,\t)
 \Cos(\Np\t,\x) \Dmul(\x,4.8pt)
 \Sin(\Np\t,\y) \Dmul(\y,4.8pt)
 \Circle(64)(\Np\x,\Np\y,4) \Stroke}

% ---------------------------------------------------------------------------
\begin{document}
\begin{center}
{\Huge\bf{Circle I}}
\bigskip

\begin{lapdf}(18,18)(-9,-9)
 \Whiledim{\d<9}{\Dadd(\d,0.3) \Nextcol(0,23) \Circle(96)(0,0,\Np\d) \Stroke}
\end{lapdf}
\end{center}

\newpage

\begin{center}
{\Huge\bf{Circle II}}
\bigskip

\begin{lapdf}(18,18)(-9,-9)
 \Setwidth(0.02)
 \Resetcol
 \Whiledim{\d<360}{\Nextcol(0,23) \Ncirc(\Np\d) \Dadd(\d,15)}
\end{lapdf}
\end{center}
\end{document}