diff options
author | Karl Berry <karl@freefriends.org> | 2012-08-15 23:13:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-08-15 23:13:06 +0000 |
commit | a244a59da16e21f1acb000b2279380db3518b8b5 (patch) | |
tree | 053ed7062d83e10903015a2d453457a916c10e17 /Master/texmf-dist/tex/latex/public | |
parent | 839c87a9ef40e1b79b2b98cce910d8eb31c1aac6 (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/public')
-rw-r--r-- | Master/texmf-dist/tex/latex/public/superiors/superiors.sty | 43 |
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 |