aramaic-serto

git-svn-id: svn://tug.org/texlive/trunk@30042 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 131 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/aramaic-serto/serto.sty b/Master/texmf-dist/tex/latex/aramaic-serto/serto.sty
new file mode 100644
index 00000000000..a45da960e4d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/aramaic-serto/serto.sty
@@ -0,0 +1,131 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% 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
+
+\usepackage{syriac}
+
+%%
+%% 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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+