summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/lapdf/ellipse.tex
blob: d12bb62c2dfe4923648d43f94f49bb2dcc7a9abc (plain)
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
\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}