summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/ellipse.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/lapdf/ellipse.tex')
-rw-r--r--macros/latex/contrib/lapdf/ellipse.tex36
1 files changed, 36 insertions, 0 deletions
diff --git a/macros/latex/contrib/lapdf/ellipse.tex b/macros/latex/contrib/lapdf/ellipse.tex
new file mode 100644
index 0000000000..d12bb62c2d
--- /dev/null
+++ b/macros/latex/contrib/lapdf/ellipse.tex
@@ -0,0 +1,36 @@
+\input preamble.tex
+
+\Defdim(\d,0)
+\Defdim(\e,9)
+
+% ---------------------------------------------------------------------------
+\begin{document}
+\begin{center}
+{\Huge \bf{Ellipse I}}
+\bigskip
+
+\begin{lapdf}(18,18)(-9,-9)
+ \Whiledim{\d<9}{
+ \Nextcol(0,23)
+ \Dadd(\d,0.5)
+ \Ellipse(32)(0,0)(\Np\d,\Np\e,0) \Stroke
+ \Dsub(\e,0.5)}
+\end{lapdf}
+\end{center}
+
+\newpage
+
+\begin{center}
+{\Huge \bf{Ellipse II}}
+\bigskip
+
+\begin{lapdf}(18,18)(-9,-9)
+ \Setwidth(0.02)
+ \Dset(\d,0)
+ \Whiledim{\d<180}{
+ \Nextcol(0,23)
+ \Ellipse(20)(0,0)(9,3,\Np\d) \Stroke
+ \Dadd(\d,7.5)}
+\end{lapdf}
+\end{center}
+\end{document}