%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% serto.sty
%% For the use of serto fonts within LaTeX
%% Last modified 9th June 2003
%% Johannes Heinecke, Lannion

\typeout{Document Style `serto.sty' <9th June 2003>.}

\def\fsertr{serto10 }
\def\fsertb{serto10b }

%%
%% Use with \serto
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% do we have elatex?
\ifx\TeXXeTstate\undefined\def\beginR{}\def\endR{}\else
\TeXXeTstate=1\fi


% Taken from exaccent.sty (Tipa package)
% usage \loweraccent[distance]{accent}{letter}
\newcommand\lowerserto{\@ifnextchar[{\lower@serto a\empty}%
  {\lower@serto a\empty[\z@]}}
\newcommand\upperserto{\@ifnextchar[{\upper@serto a\empty}%
  {\upper@serto a\empty[\z@]}}

\def\upper@serto#1#2[#3]#4#5{{\leavevmode
  \setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
    \if a#1\char#4\else#4\fi}%
  \ifx\empty#5\empty\box\@ne\else
  \@getaccshift \let\c@lcshift\@pshift
  \dimen\z@\ht\@ne
  \ifdim\ht\@ne>1ex \advance\dimen\z@ -1ex \else
  \ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
  \vbox{\hsize\wd\z@\offinterlineskip
    %\hb@xt@\z@{\@accshift{#3}\hb@xt@\wd\z@{%
    \hb@xt@\z@{\@accshift{.5ex}\hb@xt@\wd\z@{%
     \hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}\hss}
    %\kern#3
    \kern.5ex
    \hbox{#5}}\fi}}

\def\lower@serto#1#2[#3]#4#5{{\leavevmode
  \setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
    \if a#1\char#4\else#4\fi}%
  \ifx\empty#5\empty\box\@ne\else
  \@getaccshift \let\c@lcshift\s@bshift
  \dimen\z@\ht\@ne
  \ifdim\ht\@ne>1ex \advance\dimen\z@ -1.1ex \else
  \ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
  \vtop{\hsize\wd\z@\offinterlineskip
    \hbox{#5}
    \kern#3
    %\kern.5ex
    \hbox{\@accshift{#3}\hb@xt@\wd\z@{%
    %\hbox{\@accshift{.5ex}\hb@xt@\wd\z@{%
      \hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}}}\fi}}

\newcommand\@getaccshift{\def\@accshift##1{}%
  \ifx\f@shape\@slshapename\let\@accshift\@accshiftsl\fi
  \ifx\f@shape\@itshapename\let\@accshift\@accshiftsl\fi}

\newcommand\@accshiftsl[1]{\c@lcshift{#1}\kern-.16667\dimen\@ne}

\newcommand\@pshift[1]{%
  \dimen\@ne-\ht\z@          % get height of the box to be accented
  \advance\dimen\@ne -#1%    % add margin between the letter and accent
  \ifdim\ht\@ne>1ex
    \advance\dimen\@ne 1ex\else
  \ifdim\ht\@ne=\z@
    \advance\dimen\@ne -\dp\@ne\fi\fi}
    
\newcommand\s@bshift[1]{%
  \dimen\@ne\dp\z@                % get depth of the box to be accented
  \ifdim\ht\@ne>\z@
    \advance\dimen\@ne \ht\@ne\fi % add ht of the accent
  \ifdim\ht\@ne>1ex
    \advance\dimen\@ne #1\fi}     % add margin between the letter and accent


%%
%% Standard serto
\expandafter \ifx \csname psertr\endcsname \relax \else
  \expandafter \endinput
\fi
\expandafter \ifx \csname psertb\endcsname \relax \else
  \expandafter \endinput
\fi

%% select the mxedruliX font with \mxedrX
%%
\def\serto {\protect\psertr\noindent}
\def\sertob {\protect\psertb\noindent}

% If NFSS2 is used,  \DeclareFontShape is defined.
\expandafter\ifx\csname DeclareFontShape\endcsname\relax

% But possibly NFSS1 is used...
\expandafter\ifx\csname selectfont\endcsname\relax

% No, its only the standard font selection...
\message {Warning: Standard font selection *not* supported}

\else
\message {Warning: NFSS1  *not* supported}
\fi

\else


\message {Using NFSS2}
 
% \psert uses the `unknown' fontencoding, `mxed' fontfamily, `m'edium
% fontseries,  `n'ormal fontshape.
%
\def\psertr{\fontencoding{U}\fontfamily{serto}%
           \fontseries{m}\fontshape{n}\selectfont}
\def\psertb{\fontencoding{U}\fontfamily{serto}%
           \fontseries{m}\fontshape{b}\selectfont}

% All the rest is defined `userto.fd', which is loaded automatically

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