summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-08-15 23:13:06 +0000
committerKarl Berry <karl@freefriends.org>2012-08-15 23:13:06 +0000
commita244a59da16e21f1acb000b2279380db3518b8b5 (patch)
tree053ed7062d83e10903015a2d453457a916c10e17 /Master/texmf-dist/tex/latex
parent839c87a9ef40e1b79b2b98cce910d8eb31c1aac6 (diff)
new font superiors (15aug12)
git-svn-id: svn://tug.org/texlive/trunk@27419 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r--Master/texmf-dist/tex/latex/public/superiors/superiors.sty43
1 files changed, 43 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/public/superiors/superiors.sty b/Master/texmf-dist/tex/latex/public/superiors/superiors.sty
new file mode 100644
index 00000000000..c089498c2db
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/public/superiors/superiors.sty
@@ -0,0 +1,43 @@
+\NeedsTeXFormat{LaTeX2e}
+\def\superiorsVersion{1.0}
+\def\superiorsDate{2012/08/11}
+\ProvidesPackage{superiors}[\superiorsDate\space-\space\superiorsVersion
+ superiors (License LPPL) Michael Sharpe]
+\RequirePackage{xkeyval}
+
+\def\supstfm{ntxsups}
+\newdimen\superiors@scale
+\def\superiors@raised{\z@}
+\def\superiors@spaced{\z@}
+\def\superiors@scaledval{1.0}
+\def\superiors@supscale{1.0}
+\define@key{superiors}{scaled}[1.0]{\def\superiors@scaledval{#1}}
+\define@key{superiors}{supscaled}[1.0]{\def\superiors@supscale{#1}}
+\define@key{superiors}{raised}[\z@]{\def\superiors@raised{#1}}
+\define@key{superiors}{supstfm}[ntxsups]{\def\supstfm{#1}}
+\define@key{superiors}{supspaced}[\z@]{\def\superiors@spaced{#1}}
+\DeclareOption*{%
+ \begingroup
+ \edef\x{\endgroup
+ \noexpand\setkeys{superiors}{\CurrentOption}}%
+ \x}
+
+\ProcessOptions*
+
+\setlength{\superiors@scale}{\superiors@scaledval\p@}
+\superiors@scale=\superiors@supscale\superiors@scale %
+\def\superiors@scaled{s*[\strip@pt\superiors@scale]}
+
+\DeclareFontFamily{U}{zsups}{}%
+ \DeclareFontShape{U}{zsups}{m}{n}{%
+ <-> \superiors@scaled \supstfm
+}{}
+\DeclareRobustCommand{\sustyle}{%
+ \not@math@alphabet\sustyle\relax
+ \usefont{U}{zsups}{m}{n}}
+
+\def\textsu#1{\raisebox{\superiors@raised}{\hbox{{\sustyle#1}}}}
+
+\def\@makefnmark{\hbox{\textsu{\hspace*{\superiors@spaced}\@thefnmark}}}
+
+\endinput \ No newline at end of file