From c10933230ee220e309792e17457c4a8486519e43 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 30 Mar 2008 23:20:15 +0000 Subject: new latex package fouridx (29mar08) git-svn-id: svn://tug.org/texlive/trunk@7249 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/fouridx/fouridx.sty | 34 +++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/fouridx/fouridx.sty (limited to 'Master/texmf-dist/tex/latex/fouridx/fouridx.sty') diff --git a/Master/texmf-dist/tex/latex/fouridx/fouridx.sty b/Master/texmf-dist/tex/latex/fouridx/fouridx.sty new file mode 100644 index 00000000000..b6611e02c65 --- /dev/null +++ b/Master/texmf-dist/tex/latex/fouridx/fouridx.sty @@ -0,0 +1,34 @@ +%% +%% This is file `fouridx.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% fouridx.dtx (with options: `package') +%% +%% fouridx package +%% +%% Copyright 2008 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{1.00} +\def\filedate{2009/03/27} +\NeedsTeXFormat{LaTeX2e}[1995/12/01] +\ProvidesPackage{fouridx}[\filedate\space v\fileversion\space Four indices] +\newcommand{\fourIdx}[5]{% + \setbox1=\hbox{\ensuremath{^{#1}}}% + \setbox2=\hbox{\ensuremath{_{#2}}}% + \setbox5=\hbox{\ensuremath{#5}}% + \hspace{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% + \ensuremath{\copy5^{\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% + _{\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% +}} +\endinput +%% +%% End of file `fouridx.sty'. -- cgit v1.2.3