From 5221ec791539c333a1c02e27b695802891fe0da8 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 18 Oct 2013 23:20:41 +0000 Subject: superiors (18oct13) git-svn-id: svn://tug.org/texlive/trunk@31943 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/superiors/superiors.sty | 52 ++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/superiors/superiors.sty (limited to 'Master/texmf-dist/tex/latex/superiors') diff --git a/Master/texmf-dist/tex/latex/superiors/superiors.sty b/Master/texmf-dist/tex/latex/superiors/superiors.sty new file mode 100644 index 00000000000..f37f3fbe1cc --- /dev/null +++ b/Master/texmf-dist/tex/latex/superiors/superiors.sty @@ -0,0 +1,52 @@ +\NeedsTeXFormat{LaTeX2e} +\def\superiorsVersion{1.03} +\def\superiorsDate{2013/10/17} +\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]} +\let\superiors@makefnmark\@makefnmark + +\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}}} +\def\f@@tn@te{footnote} +\def\@makefnmark{% + \ifx\@mpfn\f@@tn@te% we're not in a minipage + \hbox{\sustyle\hspace*{.04em}\@thefnmark} + \else% minipage---use original def + \superiors@makefnmark + \fi% +} + +\endinput \ No newline at end of file -- cgit v1.2.3