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