diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/lapdf/circle.tex |
Initial commit
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} |