summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/circle.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/circle.tex')
-rw-r--r--macros/latex/contrib/lapdf/circle.tex37
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}