%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% afonts.sty
% 18.07.91 1.0
% 20.09.91 1.1 added NFSS macros (br)
% 19.11.91 1.2 magstephalf
% 24.12.91 1.3 format
% 12.02.92 1.4 message delayed
% 27.02.92 1.5 nash14 font
% 29.12.92 1.6 lnst14 font
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% (c) Klaus Lagally
%     Institut fuer Informatik
%     Universitaet Stuttgart
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% load this file only, if \pnast not defined
%
\expandafter \ifx \csname pnast\endcsname \relax \else
  \expandafter \endinput
\fi

\version = {2.08}  \message {\the\version }

\chardef \nstatcode = \catcode`\@            \catcode`\@ = 11
\chardef \nstlscode = \catcode`\<            \catcode`\< = 12

\wlog{Setup arabic Nasta`liq fonts 1.6 (29.12.92) (br, kl)}

% select the Nastaliq font with \nastaliq
%
\def\nastaliq {\protect\pnast}

% if we are using the NFSS, \selectfont is defined.
% if undefined, we assume LaTeX's `lfonts.tex'.
%
\ifx\selectfont\undefined

% OLD FONT SELECTION

% load all necessary fonts
%
\newfont {\tennast } {lnst14}
\newfont {\elvnnast} {lnst14 scaled 1095}
\newfont {\twlvnast} {lnst14 \@magscale1}
\newfont {\frtnnast} {lnst14 \@magscale2}
\newfont {\svtnnast} {lnst14 \@magscale3}
\newfont {\twtynast} {lnst14 \@magscale4}
\newfont {\twfvnast} {lnst14 \@magscale5}

% add the \pnast command to the size changing hooks
%
\@addfontinfo \@vpt    {\def\pnast {\tennast}}
\@addfontinfo \@viipt  {\def\pnast {\tennast}}
\@addfontinfo \@viiipt {\def\pnast {\tennast}}
\@addfontinfo \@ixpt   {\def\pnast {\tennast}}
\@addfontinfo \@xpt    {\def\pnast {\tennast}}
\@addfontinfo \@xipt   {\def\pnast {\elvnnast}}
\@addfontinfo \@xiipt  {\def\pnast {\twlvnast}}
\@addfontinfo \@xivpt  {\def\pnast {\frtnnast}}
\@addfontinfo \@xviipt {\def\pnast {\svtnnast}}
\@addfontinfo \@xxpt   {\def\pnast {\twtynast}}
\@addfontinfo \@xxvpt  {\def\pnast {\twfvnast}}

\else

% NEW FONT SELECTION

% define \pnast to use the `nash' family, `m'edium series and
% 'i'talic shape.
%
\def\pnast{\family{nash}\series{m}\shape{i}\selectfont}

% setup the font definition table
% (`1' at the beginning of a fontname: size not available, print
% warning to inform the user)
%
\new@fontshape{nash}{m}{n}{%
      <5>1lnst14%
      <6>1lnst14%
      <7>1lnst14%
      <8>1lnst14%
      <9>1lnst14%
      <10>lnst14 at14.4pt%
      <11>lnst14 at15.77441pt%
      <12>lnst14 at17.28pt%
      <14>lnst14 at20.736pt%
      <17>lnst14 at24.8832pt%
      <20>1lnst14 at29.85984%
      <25>1lnst14 at35.831808pt}{}
%\extra@def{nast}{}{}

\fi

\catcode`\@ = \nstatcode	\catcode`\< = \nstlscode

\endinput
%%%%%%%%%%%%%%%%%%%%%%%%%%% EOF %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

