<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">% 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}%
       {&lt;5&gt;&lt;6&gt;&lt;7&gt;&lt;8&gt;&lt;9&gt;gen*ar%
        &lt;10-12&gt;ar10%
        &lt;12-&gt; ar12%
        }{}
  \DeclareFontShape{U}{ar}{b}{it}%
       {&lt;5&gt;&lt;6&gt;&lt;7&gt;&lt;8&gt;&lt;9&gt;gen*arb%
        &lt;10-12&gt;arb10%
        &lt;12-&gt; arb12%
        }{}
  \DeclareFontShape{U}{ar}{bx}{it}{&lt;-&gt;ssub*ar/b/it}{}
  \DeclareFontShape{U}{ar}{m}{n}{&lt;-&gt;ssub*ar/m/it}{}
  \DeclareFontShape{U}{ar}{bx}{n}{&lt;-&gt;ssub*ar/b/it}{}

\DeclareFontFamily{U}{ARss}{}
  \DeclareFontShape{U}{ARss}{m}{it}{&lt;-&gt; arssi10}{}%
  \DeclareFontShape{U}{ARss}{m}{n}{&lt;-&gt;ssub*ARss/m/it}{}%
  \DeclareFontShape{U}{ARss}{m}{sl}{&lt;-&gt;ssub*ARss/m/it}{}%
  \DeclareFontShape{U}{ARss}{b}{it}{&lt;-&gt; arssbi10}{}%
  \DeclareFontShape{U}{ARss}{b}{sl}{&lt;-&gt;ssub*ARss/b/it}{}%
  \DeclareFontShape{U}{ARss}{b}{n}{&lt;-&gt;ssub*ARss/b/it}{}%
  \DeclareFontShape{U}{ARss}{bx}{sl}{&lt;-&gt;ssub*ARss/b/it}{}%
  \DeclareFontShape{U}{ARss}{bx}{it}{&lt;-&gt;ssub*ARss/b/it}{}%
  \DeclareFontShape{U}{ARss}{bx}{n}{&lt;-&gt;ssub*ARss/b/it}{}%

\DeclareFontFamily{U}{ARtt}{}
  \DeclareFontShape{U}{ARtt}{m}{it}{&lt;-&gt; artti10}{}%
  \DeclareFontShape{U}{ARtt}{b}{it}{&lt;-&gt;ssub*ARtt/m/it}{}%
  \DeclareFontShape{U}{ARtt}{bx}{it}{&lt;-&gt;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}{&lt;-&gt;s*[\mar@scale]amarri}{}%
  \DeclareFontShape{U}{ar}{b}{it}{&lt;-&gt;s*[\mar@scale]amarbi}{}%
  \DeclareFontShape{U}{ar}{bx}{it}{&lt;-&gt;ssub*ar/b/it}{}%
\DeclareFontFamily{U}{ARss}{}
  \DeclareFontShape{U}{ARss}{m}{it}{&lt;-&gt;ssub*ar/m/it}{}
  \DeclareFontShape{U}{ARss}{b}{it}{&lt;-&gt;ssub*ar/b/it}{}
  \DeclareFontShape{U}{ARss}{bx}{it}{&lt;-&gt;ssub*ar/b/it}{}
\DeclareFontFamily{U}{ARtt}{}
  \DeclareFontShape{U}{ARtt}{m}{it}{&lt;-&gt;ssub*ar/m/it}{}
  \DeclareFontShape{U}{ARtt}{b}{it}{&lt;-&gt;ssub*ar/b/it}{}
  \DeclareFontShape{U}{ARtt}{bx}{it}{&lt;-&gt;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}{&lt;-&gt;s*[\apar@scale]aparri}{}%
  \DeclareFontShape{U}{ar}{b}{it}{&lt;-&gt;s*[\apar@scale]aparbi}{}%
  \DeclareFontShape{U}{ar}{bx}{it}{&lt;-&gt;ssub*ar/b/it}{}%
\DeclareFontFamily{U}{ARss}{}
  \DeclareFontShape{U}{ARss}{m}{it}{&lt;-&gt;ssub*ar/m/it}{}
  \DeclareFontShape{U}{ARss}{b}{it}{&lt;-&gt;ssub*ar/b/it}{}
  \DeclareFontShape{U}{ARss}{bx}{it}{&lt;-&gt;ssub*ar/b/it}{}
\DeclareFontFamily{U}{ARtt}{}
  \DeclareFontShape{U}{ARtt}{m}{it}{&lt;-&gt;ssub*ar/m/it}{}
  \DeclareFontShape{U}{ARtt}{b}{it}{&lt;-&gt;ssub*ar/b/it}{}
  \DeclareFontShape{U}{ARtt}{bx}{it}{&lt;-&gt;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
</pre></body></html>