aspectratio, replacing ar (28jan12)

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

1 files changed, 109 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/aspectratio/ar.sty b/Master/texmf-dist/tex/latex/aspectratio/ar.sty
new file mode 100644
index 00000000000..48c81be485e
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/aspectratio/ar.sty
@@ -0,0 +1,109 @@
+% Copyright 2008-2012 Claudio Beccari
+% Licence LPPL 
+%
+% This extension is for using the aspect ratio symbol in math mode and in
+% text mode by means of the command \AR.
+%
+% 
+\NeedsTeXFormat{LaTeX2e}[1994/12/01]
+\ProvidesPackage{ar}[2012/01/23 v.2.0 Aspect Ratio symbol: CM, TX, PX styles]
+\newif\ifCM\newif\ifTM\newif\ifPA
+\CMfalse\TMfalse\PAfalse
+\DeclareOption{CM}{\CMtrue\TMfalse\PAfalse}
+\DeclareOption{TM}{\TMtrue\PAfalse\CMfalse}
+\DeclareOption{TX}{\TMtrue\PAfalse\CMfalse}
+\DeclareOption{PA}{\PAtrue\CMfalse\TMfalse}
+\DeclareOption{PX}{\PAtrue\CMfalse\TMfalse}
+\ExecuteOptions{CM}
+\ProcessOptions*\relax
+\ifCM
+  \DeclareFontFamily{U}{ar}{}
+  \DeclareFontShape{U}{ar}{m}{it}%
+       {<5><6><7><8><9>gen*ar%
+        <10-12>ar10%
+        <12-> ar12%
+        }{}
+  \DeclareFontShape{U}{ar}{b}{it}%
+       {<5><6><7><8><9>gen*arb%
+        <10-12>arb10%
+        <12-> arb12%
+        }{}
+  \DeclareFontShape{U}{ar}{bx}{it}{<->ssub*ar/b/it}{}
+  \DeclareFontShape{U}{ar}{m}{n}{<->ssub*ar/m/it}{}
+  \DeclareFontShape{U}{ar}{bx}{n}{<->ssub*ar/b/it}{}
+
+\DeclareFontFamily{U}{ARss}{}     
+  \DeclareFontShape{U}{ARss}{m}{it}{<-> arssi10}{}%
+  \DeclareFontShape{U}{ARss}{m}{n}{<->ssub*ARss/m/it}{}%
+  \DeclareFontShape{U}{ARss}{m}{sl}{<->ssub*ARss/m/it}{}%
+  \DeclareFontShape{U}{ARss}{b}{it}{<-> arssbi10}{}%
+  \DeclareFontShape{U}{ARss}{b}{sl}{<->ssub*ARss/b/it}{}%
+  \DeclareFontShape{U}{ARss}{b}{n}{<->ssub*ARss/b/it}{}%
+  \DeclareFontShape{U}{ARss}{bx}{sl}{<->ssub*ARss/b/it}{}%
+  \DeclareFontShape{U}{ARss}{bx}{it}{<->ssub*ARss/b/it}{}%
+  \DeclareFontShape{U}{ARss}{bx}{n}{<->ssub*ARss/b/it}{}%
+  
+\DeclareFontFamily{U}{ARtt}{}     
+  \DeclareFontShape{U}{ARtt}{m}{it}{<-> artti10}{}%
+  \DeclareFontShape{U}{ARtt}{b}{it}{<->ssub*ARtt/m/it}{}%
+  \DeclareFontShape{U}{ARtt}{bx}{it}{<->ssub*ARtt/m/it}{}%  
+\fi
+%
+\ifTM
+\def\mar@scale{.90}%         12pt design size; other sizes simply scaled
+\DeclareFontFamily{U}{ar}{}
+  \DeclareFontShape{U}{ar}{m}{it}{<->s*[\mar@scale]amarri}{}%
+  \DeclareFontShape{U}{ar}{b}{it}{<->s*[\mar@scale]amarbi}{}%
+  \DeclareFontShape{U}{ar}{bx}{it}{<->ssub*ar/b/it}{}% 
+\DeclareFontFamily{U}{ARss}{}
+  \DeclareFontShape{U}{ARss}{m}{it}{<->ssub*ar/m/it}{}     
+  \DeclareFontShape{U}{ARss}{b}{it}{<->ssub*ar/b/it}{}     
+  \DeclareFontShape{U}{ARss}{bx}{it}{<->ssub*ar/b/it}{}     
+\DeclareFontFamily{U}{ARtt}{}     
+  \DeclareFontShape{U}{ARtt}{m}{it}{<->ssub*ar/m/it}{}     
+  \DeclareFontShape{U}{ARtt}{b}{it}{<->ssub*ar/b/it}{}     
+  \DeclareFontShape{U}{ARtt}{bx}{it}{<->ssub*ar/b/it}{}     
+\fi
+%
+\ifPA
+\def\apar@scale{1.00}%         10pt design size; other sizes simply scaled
+\DeclareFontFamily{U}{ar}{}
+  \DeclareFontShape{U}{ar}{m}{it}{<->s*[\apar@scale]aparri}{}% 
+  \DeclareFontShape{U}{ar}{b}{it}{<->s*[\apar@scale]aparbi}{}%
+  \DeclareFontShape{U}{ar}{bx}{it}{<->ssub*ar/b/it}{}%                             
+\DeclareFontFamily{U}{ARss}{}
+  \DeclareFontShape{U}{ARss}{m}{it}{<->ssub*ar/m/it}{}     
+  \DeclareFontShape{U}{ARss}{b}{it}{<->ssub*ar/b/it}{}     
+  \DeclareFontShape{U}{ARss}{bx}{it}{<->ssub*ar/b/it}{}     
+\DeclareFontFamily{U}{ARtt}{}     
+  \DeclareFontShape{U}{ARtt}{m}{it}{<->ssub*ar/m/it}{}     
+  \DeclareFontShape{U}{ARtt}{b}{it}{<->ssub*ar/b/it}{}     
+  \DeclareFontShape{U}{ARtt}{bx}{it}{<->ssub*ar/b/it}{}     
+\fi
+
+  
+\newcommand*\ARm{\mathchoice
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontsize{\tf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontsize{\tf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontsize{\sf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontsize{\ssf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}}
+	
+\newcommand*\ARmb{\mathchoice
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontseries{b}\fontsize{\tf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontseries{b}\fontsize{\tf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontseries{b}\fontsize{\sf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}%
+	{\hbox{\fontencoding{U}\fontfamily{ar}\fontseries{b}\fontsize{\ssf@size}{\f@baselineskip}\fontshape{it}\selectfont A}}}
+
+% Serifed
+\DeclareRobustCommand{\AR}{\ifmmode\ARm\else{\fontencoding{U}\fontfamily{ar}\fontshape{it}\selectfont A}\fi}
+\DeclareRobustCommand{\ARb}{\ifmmode\ARmb\else{\fontencoding{U}\fontfamily{ar}\fontshape{it}\fontseries{b}\selectfont A}\fi}
+% Sans serif
+\DeclareRobustCommand{\ARss}{\ifmmode\ARm\else{\fontencoding{U}\fontfamily{ARss}\fontshape{it}\selectfont A}\fi}
+\DeclareRobustCommand{\ARssb}{\ifmmode\ARmb\else{\fontencoding{U}\fontfamily{ARss}\fontshape{it}\fontseries{b}\selectfont A}\fi}
+% Monospaced 
+\DeclareRobustCommand{\ARtt}{\ifmmode\ARm\else{\fontencoding{U}\fontfamily{ARtt}\fontshape{it}\selectfont A}\fi}
+
+
+
+
+\endinput