%% Anttor.sty
%% Copyright by Marcin Woli\'nski
%% Licencja/License: LPPL.
%% [Based on earlier antyktor.sty by Piotr K\l{}osowski]
%% ----------------------------------------------------------------------------
%% [EN] LaTeX2e support for Antykwa Torunska Type 1 fonts made by
%%      J.M. Nowacki.
%% [PL] Wspomaga u/zywanie w LaTeXu 2e font/ow postscriptowych Antykwa
%%      Toru/nska, przeniesionych na no/snik komputerowy przez
%%      J.M. Nowackiego.
%%
%% Umieszczenie linijki `\usepackage{anttor}' w preambule spowoduje
%% u/zycie Antykwy Toru/nskiej jako domy/slnego kroju pisma w~dokumencie.
%% Do sk/ladu w j/ezyku angielskim wystarczy LaTeX-owy
%% uk/lad kodowania OT1. Do sk/ladu w j/ezyku polskim nale/zy w/l/aczy/c
%% uk/lad OT4 (najlepiej pos/luguj/ac si/e pakietem 'polski'). Pe/lne
%% wykorzystanie zestawu znak/ow fontu Antykwa Toru/nska umo/zliwi
%% w/l/aczenie uk/ladu QX, np.:
%%
%% \usepackage{polski}
%% \usepackage{anttor}
%% \usepackage[QX]{fontenc}
%%
%% Ponadto w~wywo/laniu pakietu anttor mog/a wyst/api/c opcje 'light'
%% w/l/aczaj/aca odmian/e jasn/a i/lub 'condensed' w/l/aczaj/aca
%% odmian/e zw/e/zon/a kroju.  Np.
%%
%% \usepackage[light,condensed]{anttor}
%%
%%
%% U/zycie w~wywo/laniu pakietu opcji 'math' spowoduje zdefiniowanie
%% nowej ,,wersji matematyki'' (mathversion) o~nazwie antt
%% i~anttbold.  Ponadto wersja antt jest uaktywniana.
%%
%% Ponadto standardowe wersje matematyki zostan� przys�oni�te
%% toru/nskimi, czyli \mathversion{normal} zaczyna znaczy/c
%% \matversion{antt} i~podobnie dla 'bold' i~'anttbold'.  W~takim
%% wariancie ,,standardowe'' wersje matematyki b/ed/a dost/epne pod
%% nazwami 'cmr' i~'cmrbold'.
%%
%% Aby unikn�� tego przykrycia nazw nale�y u�y� opcji 'mathnoalias'.
%%
%%
%% ----------------------------------------------------------------------------

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{anttor}[2005/10/03 v.1.2 anttor (Antykwa Torunska) package (MW)]
\DeclareOption{regular}{\renewcommand{\rmdefault}{antt}}
\DeclareOption{light}{\renewcommand{\rmdefault}{anttl}}
\DeclareOption{condensed}{\edef\rmdefault{\rmdefault c}}
\DeclareOption{mathnoalias}{\let\define@antt@mathversions\relax}
\DeclareOption{math}{\let\define@antt@mathversions a}
\ExecuteOptions{regular}
\ProcessOptions

\renewcommand{\familydefault}{\rmdefault}
\renewcommand{\bfdefault}{b}
\fontfamily{\familydefault}

\ifx\define@antt@mathversions\@undefined\else
  \DeclareMathVersion{antt}
  \DeclareMathVersion{anttbold}
%   \@ifundefined{T@OT4}{%
%     \input ot4enc.def
%   }{}\bgroup\let\@font@warning\@font@info
  \SetSymbolFont{operators}{antt}{OT1}{\rmdefault m}{m}{n}
  \SetSymbolFont{letters}{antt}{OML}{\rmdefault} {m}{it}
  \SetSymbolFont{symbols}{antt}{OMS}{\rmdefault}{m}{n}
  \SetSymbolFont{largesymbols}{antt}{OMX}{\rmdefault}{m}{n}
  \SetSymbolFont{operators}{anttbold}{OT1}{\rmdefault m} {b}{n}
  \SetSymbolFont{letters}  {anttbold}{OML}{\rmdefault} {b}{it}
  \SetSymbolFont{symbols}  {anttbold}{OMS}{\rmdefault}{b}{n}
  \SetSymbolFont{largesymbols}{anttbold}{OMX}{\rmdefault}{b}{n}
%  \egroup
  \SetMathAlphabet{\mathbf}{antt}{OT1}{\rmdefault}{bx}{n}
  \SetMathAlphabet{\mathsf}{antt}{OT1}{\rmdefault}{m}{n}
  \SetMathAlphabet{\mathit}{antt}{OT1}{\rmdefault}{m}{it}
  \SetMathAlphabet{\mathtt}{antt}{OT1}{\rmdefault}{m}{n}
  \SetMathAlphabet\mathsf{anttbold}{OT1}{\rmdefault}{bx}{n}
  \SetMathAlphabet\mathit{anttbold}{OT1}{\rmdefault}{bx}{it}
  \mathversion{antt}
  \ifx\define@antt@mathversions a
    \ifx\mv@cmr\@undefined
      \let\mv@cmr\mv@normal
      \let\mv@cmrbold\mv@bold
    \fi
    \let\mv@normal\mv@antt
    \let\mv@bold\mv@anttbold
  \fi
  \let\define@antt@mathversions\@undefined

\DeclareMathSymbol{\equalleft}{\mathrel}{symbols}{"CD}
\DeclareMathSymbol{\equalright}{\mathrel}{symbols}{"CC}
\DeclareMathSymbol{\equalc}{\mathrel}{symbols}{"CB}
\DeclareMathSymbol{\Rightarrow}{\mathrel}{symbols}{"D1}
\DeclareMathSymbol{\Leftarrowj}{\mathrel}{symbols}{"D0}
\DeclareMathSymbol{\minusleft}{\mathrel}{symbols}{"C9}
\DeclareMathSymbol{\minusright}{\mathrel}{symbols}{"CA}
\DeclareMathSymbol{\minusc}{\mathrel}{symbols}{"C8}
\DeclareMathSymbol{\rightarrow}{\mathrel}{symbols}{"CF}
\DeclareMathSymbol{\leftarrow}{\mathrel}{symbols}{"CE}
\def\Longrightarrow{\equalleft\joinrel\Rightarrow}
\def\Longleftarrow{\Leftarrowj\joinrel\equalright}
\def\longrightarrow{\minusright\joinrel\rightarrow}
\def\longleftarrow{\leftarrow\joinrel\minusleft}
\def\rightarrowfill{$\m@th\minusright\mkern-7mu%
  \cleaders\hbox{$\mkern-2mu\minusc\mkern-2mu$}\hfill
  \mkern-7mu\mathord\rightarrow$}
\def\leftarrowfill{$\m@th\mathord\leftarrow\mkern-7mu%
  \cleaders\hbox{$\mkern-2mu\minusc\mkern-2mu$}\hfill
  \mkern-7mu\minusleft$}
\fi

\endinput
%%
%% End of file `anttor.sty'.
