File: 3-4-6.ltx

package info (click to toggle)
texlive-doc 2009-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 192,004 kB
  • ctags: 4,774
  • sloc: perl: 12,760; xml: 11,870; makefile: 1,033; lisp: 394; sh: 229; awk: 205; java: 159; sed: 4
file content (25 lines) | stat: -rw-r--r-- 552 bytes parent folder | download | duplicates (12) 
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
 
\documentclass{ppex}
\nonstopmode
\usepackage {mfpic,ifthen}
\pagestyle{empty}
\setlength\textwidth{207.0pt}
\begin{document}
\ResetPreambleCommands
\ReadyForTheFray
\usepackage {mfpic,ifthen}
\begin{mfpic}[1.5]{-40}{50}{-48}{50}
\newcounter{mfcntA}
\newcounter{mfcntB}
\setcounter{mfcntA}{50}
\setcounter{mfcntB}{48}
\whiledo{\themfcntA>1}{%
  \expandafter\curve{(\themfcntA,0),
    (0,\themfcntA),
    (-\themfcntA,0),
    (0,-\themfcntB),
    (\themfcntB,0)}
   \addtocounter{mfcntA}{-2}%
   \addtocounter{mfcntB}{-2}%
 }
\end{mfpic}
\end{document}