summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/aspectratio/ar.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/aspectratio/ar.sty')
-rw-r--r--macros/latex/contrib/aspectratio/ar.sty109
1 files changed, 109 insertions, 0 deletions
diff --git a/macros/latex/contrib/aspectratio/ar.sty b/macros/latex/contrib/aspectratio/ar.sty
new file mode 100644
index 0000000000..a761b02b96
--- /dev/null
+++ b/macros/latex/contrib/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