diff options
Diffstat (limited to 'macros/latex/contrib/lapdf/circle.tex')
-rw-r--r-- | macros/latex/contrib/lapdf/circle.tex | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/circle.tex b/macros/latex/contrib/lapdf/circle.tex new file mode 100644 index 0000000000..55ad9bc03e --- /dev/null +++ b/macros/latex/contrib/lapdf/circle.tex @@ -0,0 +1,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} |