From e80f6b7dde3b18e5a08b4b9c0cad21ef7f8fb224 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 26 Nov 2007 08:17:19 +0000 Subject: new package simplewick git-svn-id: svn://tug.org/texlive/trunk@5597 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/simplewick/README | 17 + .../texmf-dist/doc/latex/simplewick/simplewick.pdf | Bin 0 -> 83275 bytes .../source/latex/simplewick/simplewick.dtx | 408 +++++++++++++++++++++ .../source/latex/simplewick/simplewick.ins | 9 + .../texmf-dist/tex/latex/simplewick/simplewick.sty | 167 +++++++++ 5 files changed, 601 insertions(+) create mode 100644 Master/texmf-dist/doc/latex/simplewick/README create mode 100644 Master/texmf-dist/doc/latex/simplewick/simplewick.pdf create mode 100644 Master/texmf-dist/source/latex/simplewick/simplewick.dtx create mode 100644 Master/texmf-dist/source/latex/simplewick/simplewick.ins create mode 100644 Master/texmf-dist/tex/latex/simplewick/simplewick.sty (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/doc/latex/simplewick/README b/Master/texmf-dist/doc/latex/simplewick/README new file mode 100644 index 00000000000..fd9d7522b89 --- /dev/null +++ b/Master/texmf-dist/doc/latex/simplewick/README @@ -0,0 +1,17 @@ +This package is for Wick contractions above and below math expressions +in math mode. + +Extract simplewick.sty with + + latex simplewick.ins + +and generate documentation calling + + latex simplewick.dtx + +---- + +This material is subject to the GNU General Public License. See +http://www.ctan.org/tex-archive/help/Catalogue/licenses.gpl.html +for the details of that license. + diff --git a/Master/texmf-dist/doc/latex/simplewick/simplewick.pdf b/Master/texmf-dist/doc/latex/simplewick/simplewick.pdf new file mode 100644 index 00000000000..dcf55c7de57 Binary files /dev/null and b/Master/texmf-dist/doc/latex/simplewick/simplewick.pdf differ diff --git a/Master/texmf-dist/source/latex/simplewick/simplewick.dtx b/Master/texmf-dist/source/latex/simplewick/simplewick.dtx new file mode 100644 index 00000000000..1edd249491b --- /dev/null +++ b/Master/texmf-dist/source/latex/simplewick/simplewick.dtx @@ -0,0 +1,408 @@ +%\iffalse +%<*package> +%% +%% ---- +%% +%% This program is free software; you can redistribute it and/or modify +%% it under the terms of the GNU General Public License as published by +%% the Free Software Foundation; either version 2 of the License, or +%% (at your option) any later version. +%% +%% This program is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%% GNU General Public License for more details. +%% +%% You should have received a copy of the GNU General Public License +%% along with this program; if not, write to the Free Software +%% Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, +%% MA 02110-1301 USA +%% +%% This work consists of the files simplewick.dtx and simplewick.ins +%% and the derived file simplewick.sty. +%% +%% ---- +%% +%% Original implementation of "contraction" adopted from thophys.sty by +%% Thorsten Ohl. Contractions below expressions ("bcontraction") and +%% stretching/shrinking fix "nomathglue" by Jindrich Kolorenc. +%% +%% ---- +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +% +%\fi +% \iffalse +% Doc-Source file to use with LaTeX2e +% \fi +% \iffalse +%<*driver> +\documentclass[11pt]{ltxdoc} +\usepackage{simplewick} + +\CheckSum{171} +\changes{1.1}{2006/10/29}{First packed version} +\changes{1.2}{2007/08/09}{Improved spacing to cooperate better with operators (such as \cdot)} +\changes{1.2a}{2007/11/23}{License clarification} + +\def\framed#1{ +\hbox{\vrule width .02em\vbox{\hrule height .02em\vskip .5ex +\hbox{\hskip .5ex\vbox{\hbox{#1}}\hskip .5ex} +\vskip .5ex\hrule height .02em}\vrule width .02em} +} + +\begin{document} +\DocInput{simplewick.dtx} +\end{document} +% +%\fi +% +%\title{Wick contractions in \LaTeX\ with |simplewick.sty|} +%\author{Jind\v rich Koloren\v c} +%\date{2006/10/29} +%\maketitle +% +%\noindent +%This is a manual accompanying the style file |simplewick.sty| +%providing macros |\acontraction| and |\bcontraction| to draw Wick +%contractions above and below expressions, respectively. The +%functionality is best illustrated by an example, +%$$ +%\contraction{}{a}{{}^{\dagger}_i(t_1)a^{\dagger}_j(t_1)}{a} +%\relax% +%\contraction[2ex]{a^{\dagger}_i(t_1)}{a}{% +%{}^{\dagger}_j(t_1)a_j(t_1)a_i(t_1)% +%a^{\dagger}_i(t_2)a^{\dagger}_j(t_2)a_j(t_2)}{a} +%\relax% +%\contraction[3ex]{a^{\dagger}_i(t_1)% +%a^{\dagger}_j(t_1)a_j(t_1)}{a}{{}_i(t_1)% +%a^{\dagger}_i(t_2)}{a} +%\relax% +%\bcontraction{a^{\dagger}_i(t_1)% +%a^{\dagger}_j(t_1)a_j(t_1)a_i(t_1)}% +%{a}{{}^{\dagger}_i(t_2)a^{\dagger}_j(t_2)}{a} +%\relax% +%a^{\dagger}_i(t_1)a^{\dagger}_j(t_1)a_j(t_1)a_i(t_1) +%a^{\dagger}_i(t_2)a^{\dagger}_j(t_2)a_j(t_2)a_i(t_2)\,. +%$$ +% +%\section{Usage} +%The syntax will be explained on something simpler, however. The +%sequence +%\begin{verbatim} +%$$ +%\contraction{}{A}{B}{C} +%\contraction[2ex]{A}{B}{C}{D} +%ABCD +%$$ +%\end{verbatim} +%renders as +%$$ +%\contraction{}{A}{B}{C} +%\contraction[2ex]{A}{B}{C}{D} +%ABCD\,. +%$$ +%The parameters of the macro |\contraction[]{}{}{}{}| (which is a +%synonym for |\acontraction[]{}{}{}{}|) are as follows. +%\newbox\listlabelbox +%\begin{list}{$\triangleright$}{ +% \setlength{\topsep}{.6em} +% \setlength{\itemsep}{.5ex} +% \setlength{\parsep}{0pt} +% \setbox\listlabelbox=\hbox{$\triangleright$} +% \setlength{\labelwidth}{\wd\listlabelbox} +% \setlength{\leftmargin}{1.5\parindent} +%} +%\item The first (optional) argument is the height of the +%contraction. When omitted (as in the first contraction above) it +%defaults to 1ex, +%\item the second argument contains the expression that lies before the +%contraction start, +%\item the third argument contains the expression, above which the +%start of the contraction is centered, +%\item the fourth argument is the +%part of the formula that is bridged by the contraction, and finally +%\item the contraction ends above the center of the last argument of +%the macro. +%\end{list} +%Note that the macro itself typesets only the contraction alone and rewinds +%back to allow for multiple contractions. Therefore, the expression to +%appear below the contraction(s) has to be repeated once more when you +%are finished with contractions themselves. +% +%I guess now it is the right time to move to that ``real life'' example +%from the beginning of this manual. Its source is +%\begin{verbatim} +%$$ +%\contraction{}{a}{{}^{\dagger}_i(t_1)a^{\dagger}_j(t_1)}{a} +%% +%\contraction[2ex]{a^{\dagger}_i(t_1)}{a}{% +%{}^{\dagger}_j(t_1)a_j(t_1)a_i(t_1)% +%a^{\dagger}_i(t_2)a^{\dagger}_j(t_2)a_j(t_2)}{a} +%% +%\contraction[3ex]{a^{\dagger}_i(t_1)% +%a^{\dagger}_j(t_1)a_j(t_1)}{a}{{}_i(t_1)% +%a^{\dagger}_i(t_2)}{a} +%% +%\bcontraction{a^{\dagger}_i(t_1)% +%a^{\dagger}_j(t_1)a_j(t_1)a_i(t_1)}% +%{a}{{}^{\dagger}_i(t_2)a^{\dagger}_j(t_2)}{a} +%% +%a^{\dagger}_i(t_1)a^{\dagger}_j(t_1)a_j(t_1)a_i(t_1) +%a^{\dagger}_i(t_2)a^{\dagger}_j(t_2)a_j(t_2)a_i(t_2)\,. +%$$ +%\end{verbatim} +% +% +%\section{Contractions inside the text --- stretching and shrinking} +%The macro |\contraction| is prone to giving not entirely satisfactory +%results when the formula is under stress or tension, i.e., when \TeX\ +%shrinks or stretches ``the glue'' from its natural width. When we try +%to squeeze the line +%\begin{verbatim} +%Contraction under stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$ +%and with no stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$. +%\end{verbatim} +%into a narrow box, we get +%\vskip 1em +%\noindent +%\hbox to \textwidth{\hfil% +%\framed{% +%\vbox{\hsize=23.75em +%\noindent +%Contraction under stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$ +%and with no stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$. +%}}\hfil} +%\vskip 1em +%\noindent +%This is not quite right since the contraction drawn on the first line +%is slightly too long, although its length is precisely the same as +%the length of the contraction on the second line --- they were entered +%via the same piece of code, after all. The style +%|simplewick.sty| offers a fix for this inconsistency in the form of +%the macro |\nomathglue{}| that prevents \TeX\ to shrink or stretch its +%argument. When used +%\begin{verbatim} +%Contraction under stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \nomathglue{% +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2)} +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$ +%and with no stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$. +%\end{verbatim} +%the outcome should look precisely as we wanted. +%\vskip 1em +%\noindent +%\hbox to \textwidth{\hfil% +%\framed{% +%\vbox{\hsize=23.75em +%\noindent +%Contraction under stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \nomathglue{\bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2)} +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$ +%and with no stress +%$ +%\contraction{}{\bar G}{{}_1(\mathbf{q}_1)\>\>{}}{\bar G} +% \bar G_1(\mathbf{q}_1)\>\>{}\bar G_2(\mathbf{q}_2) +%=\bar\chi_{12}(\mathbf{q}_1-\mathbf{q}_2) +%$. +%}}\hfil} +% +% +%\section{Alternatives} +%An alternative method for typesetting Wick contractions with \LaTeX\ is a +%|wick.sty| by Taichiro Kugo, available at +%\begin{verbatim} +%http://www2.yukawa.kyoto-u.ac.jp/~kugo/index-e.html +%\end{verbatim} +%It is actually a more advanced solution than the one presented +%here (which is the reason why I call this package +%|simplewick|). Unfortunately, |wick.sty| seems to be somewhat +%conflicting with |amsmath| package. For example, I did not succeed to +%draw the |wick.sty| contractions above accented characters (such as +%those in the stretching examples above) when |amsmath| was +%loaded. Without |amsmath| it was just fine, however. +% +% +%\section{Credits} +%The package |simplewick.sty| is based on the code from |thophys.sty| +%by Thorsten Ohl that dates back to 1994. I only added the contractions +%below expressions (|\bcontraction|), the stretching/shrinking fix +%|\nomathglue| and this documentation. Contact information can be +%obtained by issuing a command |\simplewickcontact|. +% +% +% +% +% +%\StopEventually{} +%\section{The Code} +% \begin{macrocode} +%<*simplewick.sty> +% \end{macrocode} +% \begin{macrocode} + +\def\fileversion{v1.2a} +\def\filedate{2007/11/23} +\ProvidesPackage{simplewick}[\filedate\space\fileversion] +\typeout{Package: simplewick \fileversion\space (\filedate)} + +\makeatletter + +% ---- +% definition of several boxes we will use +% ---- +\newbox\swb@xone +\newbox\swb@xtwo +\newbox\swb@xthree +\newbox\swb@xfour +\newdimen\swdimen@ne +\newdimen\swdimentw@ + +% ---- +% contraction above the expression +% ---- +\newcommand{\acontraction}[5][1ex]{% + \mathchoice + {\acontraction@\displaystyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\textstyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\scriptstyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\scriptscriptstyle{#2}{#3}{#4}{#5}{#1}}}% +\newcommand{\acontraction@}[6]{% + \setbox\swb@xone=\hbox{${}#1{}#2{}$}% + \setbox\swb@xtwo=\hbox{${}#1{}#3{}$}% + \setbox\swb@xthree=\hbox{${}#1{}#4{}$}% + \setbox\swb@xfour=\hbox{${}#1{}#5{}$}% + \swdimen@ne=\wd\swb@xtwo% + \advance\swdimen@ne by \wd\swb@xfour% + \divide\swdimen@ne by 2% + \advance\swdimen@ne by \wd\swb@xthree% + \vbox{% + \hbox to 0pt{% + \kern \wd\swb@xone% + \kern 0.5\wd\swb@xtwo% + \acontraction@@{\swdimen@ne}{#6}% + \hss}% + \vskip 0.5ex% how far above the line starts + \vskip\ht\swb@xtwo}} +\newcommand{\acontracted}[5][1ex]{% + \acontraction[#1]{#2}{#3}{#4}{#5}\ensuremath{#2#3#4#5}} +\newcommand{\acontraction@@}[3][0.05em]{% +% the 1st parameter (explicitly inserted) is the width +% of the contraction line + \hbox{% + \vrule width #1 height 0pt depth #3% + \vrule width #2 height 0pt depth #1% + \vrule width #1 height 0pt depth #3% + \relax}} +% compatibility with the previous version +\let\contraction\acontraction + +% ---- +% contraction below the expression +% ---- +\newcommand{\bcontraction}[5][1ex]{% + \mathchoice + {\bcontraction@\displaystyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\textstyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\scriptstyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\scriptscriptstyle{#2}{#3}{#4}{#5}{#1}}}% +\newcommand{\bcontraction@}[6]{% + \setbox\swb@xone=\hbox{${}#1{}#2{}$}% + \setbox\swb@xtwo=\hbox{${}#1{}#3{}$}% + \setbox\swb@xthree=\hbox{${}#1{}#4{}$}% + \setbox\swb@xfour=\hbox{${}#1{}#5{}$}% + \swdimen@ne=\wd\swb@xtwo% + \advance\swdimen@ne by \wd\swb@xfour% + \divide\swdimen@ne by 2% + \advance\swdimen@ne by \wd\swb@xthree% + \lower 0.5ex \vbox{% + \hbox to 0pt{% + \kern \wd\swb@xone% + \kern 0.5\wd\swb@xtwo% + \bcontraction@@{\swdimen@ne}{#6}% + \hss}% + }} +\newcommand{\bcontracted}[5][1ex]{% + \bcontraction[#1]{#2}{#3}{#4}{#5}\ensuremath{#2#3#4#5}} +\newcommand{\bcontraction@@}[3][0.05em]{% +% the 1st parameter (explicitly inserted) is the width +% of the contraction line + \hbox{% + \swdimentw@=#3 + \advance\swdimentw@ by -#1 + \vrule width #1 height 0pt depth #3% + \lower\swdimentw@\hbox{\vrule width #2 height 0pt depth #1}% + \vrule width #1 height 0pt depth #3% + \relax}} + +\makeatother + +% ---- +% macro to switch off shrinking/stretching in mathmode +% (consult TeXbook, page 168, to see where the numbers came from) +% ---- +\newcommand\nomathglue[1]{ +\begingroup +\thinmuskip=3mu \medmuskip=4mu \thickmuskip=5mu +#1 +\endgroup +} + +% ---- +% obfuscated contact info +% ---- +\newcommand\simplewickcontact{% +{\tt {k}{o}{l}{o}{r}{e}{n}{c}{\tt @}{f}{z}{u}{.}{c}{z}}% +} + +% \end{macrocode} +% \begin{macrocode} +% +% \end{macrocode} +%\Finale +\endinput diff --git a/Master/texmf-dist/source/latex/simplewick/simplewick.ins b/Master/texmf-dist/source/latex/simplewick/simplewick.ins new file mode 100644 index 00000000000..abb3f08039e --- /dev/null +++ b/Master/texmf-dist/source/latex/simplewick/simplewick.ins @@ -0,0 +1,9 @@ +\input docstrip + +\askforoverwritefalse + +\generate{\file{simplewick.sty}{\usepreamble\defaultpreamble +\usepostamble\defaultpostamble\from{simplewick.dtx}{simplewick.sty,package}} +} + +\endbatchfile diff --git a/Master/texmf-dist/tex/latex/simplewick/simplewick.sty b/Master/texmf-dist/tex/latex/simplewick/simplewick.sty new file mode 100644 index 00000000000..3ae4deb2028 --- /dev/null +++ b/Master/texmf-dist/tex/latex/simplewick/simplewick.sty @@ -0,0 +1,167 @@ +%% +%% This is file `simplewick.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% simplewick.dtx (with options: `simplewick.sty,package') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from simplewick.sty. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file simplewick.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%% +%% ---- +%% +%% This program is free software; you can redistribute it and/or modify +%% it under the terms of the GNU General Public License as published by +%% the Free Software Foundation; either version 2 of the License, or +%% (at your option) any later version. +%% +%% This program is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%% GNU General Public License for more details. +%% +%% You should have received a copy of the GNU General Public License +%% along with this program; if not, write to the Free Software +%% Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, +%% MA 02110-1301 USA +%% +%% This work consists of the files simplewick.dtx and simplewick.ins +%% and the derived file simplewick.sty. +%% +%% ---- +%% +%% Original implementation of "contraction" adopted from thophys.sty by +%% Thorsten Ohl. Contractions below expressions ("bcontraction") and +%% stretching/shrinking fix "nomathglue" by Jindrich Kolorenc. +%% +%% ---- +%% +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +%% +%% +%% +%% + +\def\fileversion{v1.2a} +\def\filedate{2007/11/23} +\ProvidesPackage{simplewick}[\filedate\space\fileversion] +\typeout{Package: simplewick \fileversion\space (\filedate)} + +\makeatletter + +\newbox\swb@xone +\newbox\swb@xtwo +\newbox\swb@xthree +\newbox\swb@xfour +\newdimen\swdimen@ne +\newdimen\swdimentw@ + +\newcommand{\acontraction}[5][1ex]{% + \mathchoice + {\acontraction@\displaystyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\textstyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\scriptstyle{#2}{#3}{#4}{#5}{#1}}% + {\acontraction@\scriptscriptstyle{#2}{#3}{#4}{#5}{#1}}}% +\newcommand{\acontraction@}[6]{% + \setbox\swb@xone=\hbox{${}#1{}#2{}$}% + \setbox\swb@xtwo=\hbox{${}#1{}#3{}$}% + \setbox\swb@xthree=\hbox{${}#1{}#4{}$}% + \setbox\swb@xfour=\hbox{${}#1{}#5{}$}% + \swdimen@ne=\wd\swb@xtwo% + \advance\swdimen@ne by \wd\swb@xfour% + \divide\swdimen@ne by 2% + \advance\swdimen@ne by \wd\swb@xthree% + \vbox{% + \hbox to 0pt{% + \kern \wd\swb@xone% + \kern 0.5\wd\swb@xtwo% + \acontraction@@{\swdimen@ne}{#6}% + \hss}% + \vskip 0.5ex% how far above the line starts + \vskip\ht\swb@xtwo}} +\newcommand{\acontracted}[5][1ex]{% + \acontraction[#1]{#2}{#3}{#4}{#5}\ensuremath{#2#3#4#5}} +\newcommand{\acontraction@@}[3][0.05em]{% + \hbox{% + \vrule width #1 height 0pt depth #3% + \vrule width #2 height 0pt depth #1% + \vrule width #1 height 0pt depth #3% + \relax}} +\let\contraction\acontraction + +\newcommand{\bcontraction}[5][1ex]{% + \mathchoice + {\bcontraction@\displaystyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\textstyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\scriptstyle{#2}{#3}{#4}{#5}{#1}}% + {\bcontraction@\scriptscriptstyle{#2}{#3}{#4}{#5}{#1}}}% +\newcommand{\bcontraction@}[6]{% + \setbox\swb@xone=\hbox{${}#1{}#2{}$}% + \setbox\swb@xtwo=\hbox{${}#1{}#3{}$}% + \setbox\swb@xthree=\hbox{${}#1{}#4{}$}% + \setbox\swb@xfour=\hbox{${}#1{}#5{}$}% + \swdimen@ne=\wd\swb@xtwo% + \advance\swdimen@ne by \wd\swb@xfour% + \divide\swdimen@ne by 2% + \advance\swdimen@ne by \wd\swb@xthree% + \lower 0.5ex \vbox{% + \hbox to 0pt{% + \kern \wd\swb@xone% + \kern 0.5\wd\swb@xtwo% + \bcontraction@@{\swdimen@ne}{#6}% + \hss}% + }} +\newcommand{\bcontracted}[5][1ex]{% + \bcontraction[#1]{#2}{#3}{#4}{#5}\ensuremath{#2#3#4#5}} +\newcommand{\bcontraction@@}[3][0.05em]{% + \hbox{% + \swdimentw@=#3 + \advance\swdimentw@ by -#1 + \vrule width #1 height 0pt depth #3% + \lower\swdimentw@\hbox{\vrule width #2 height 0pt depth #1}% + \vrule width #1 height 0pt depth #3% + \relax}} + +\makeatother + +\newcommand\nomathglue[1]{ +\begingroup +\thinmuskip=3mu \medmuskip=4mu \thickmuskip=5mu +#1 +\endgroup +} + +\newcommand\simplewickcontact{% +{\tt {k}{o}{l}{o}{r}{e}{n}{c}{\tt @}{f}{z}{u}{.}{c}{z}}% +} + +\endinput +%% +%% End of file `simplewick.sty'. -- cgit v1.2.3