diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/genmisc/wiggly.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/genmisc/wiggly.tex | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/Master/texmf-dist/tex/generic/genmisc/wiggly.tex b/Master/texmf-dist/tex/generic/genmisc/wiggly.tex deleted file mode 100644 index 7f04760f34a..00000000000 --- a/Master/texmf-dist/tex/generic/genmisc/wiggly.tex +++ /dev/null @@ -1,30 +0,0 @@ -% A macro \underwiggle for drawing variable length wiggly lines horizontally -% under its argument in the same way as \underbar. -% Written by Dr. John S. Garavelli on 4 December 1987 and adapted from a routine -% by A. G. W. Cameron at Harvard University which appeared in TUGBOAT November -% 1985, vol. 6, no. 3, p. 155. -% WARNING: the computations performed by this macro can be very time consuming, -% so use it sparingly. - -\newcount\vone \newcount\vtwo \newcount\vthree \newcount\vfour \newcount\vfive -\newcount\vsix \newcount\vseven \newcount\veight \newcount\vnine \newcount\vten -\newbox\wbox \newdimen\wbsize -\def\underwiggle#1{\ifmmode\setbox\wbox=\hbox{$#1$} - \else\setbox\wbox=\hbox{#1}\fi -\dp\wbox=0pt\wbsize=\wd\wbox\lower2pt\hbox to0pt -{\hss$\vone=0\vtwo=0\vthree=7000\vfive=\vtwo -\loop -\vseven=\vone \divide\vseven by 2 -\vsix=\vfive \divide\vsix by 2 \multiply\vsix by -1 -\veight=16384 \advance\veight by \vsix -\vnine=16384 \advance\vnine by -\vsix -\vten=\vseven \advance\vten by 32768 -\hskip\vseven sp -\vrule height\veight sp width 32768 sp depth\vnine sp -\hskip-\vten sp -\ifdim\vseven sp<\wbsize \advance\vone by 20000 -\advance\vtwo by \vthree -\vfour=-\vtwo \divide\vfour by 10 -\advance\vthree by \vfour -\advance\vfive by \vtwo -\repeat$}\box\wbox} |