%% %% This is file `fouridx.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% fouridx.dtx (with options: `package') %% %% fouridx package %% %% Copyright 2008, 2013 Stefan Karrmann %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN %% archives in directory macros/latex/base/lppl.txt; either %% version 1 of the License, or any later version. %% %% S.Karrmann at web.de %% \def\fileversion{2.00} \def\filedate{2013/11/21} \NeedsTeXFormat{LaTeX2e}[1995/12/01] \ProvidesPackage{fouridx}[\filedate\space v\fileversion\space Four indices] \newcommand{\fourIdx}[5]{% \ensuremath{\mathchoice% {{\setbox1=\hbox{$\scriptstyle{#1}$}% \setbox2=\hbox{$\scriptstyle{#2}$}% \setbox5=\hbox{$\displaystyle{#5}$}% \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% \copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% _{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% }}% display {{\setbox1=\hbox{$\scriptstyle{#1}$}% \setbox2=\hbox{$\scriptstyle{#2}$}% \setbox5=\hbox{$\textstyle{#5}$}% \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% \copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% _{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% }}% text {{\setbox1=\hbox{$\scriptscriptstyle{#1}$}% \setbox2=\hbox{$\scriptscriptstyle{#2}$}% \setbox5=\hbox{$\scriptstyle{#5}$}% \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% \copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% _{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% }}% script {{\setbox1=\hbox{$\scriptscriptstyle{#1}$}% \setbox2=\hbox{$\scriptscriptstyle{#2}$}% \setbox5=\hbox{$\scriptscriptstyle{#5}$}% \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% \copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% _{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% }}% scriptscript }} \endinput %% %% End of file `fouridx.sty'.