new latex package fouridx (29mar08)

git-svn-id: svn://tug.org/texlive/trunk@7249 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 34 insertions, 0 deletions

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'.