From c10933230ee220e309792e17457c4a8486519e43 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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

