summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/aramaic-serto/serto.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-19 18:26:38 +0000
committerKarl Berry <karl@freefriends.org>2013-04-19 18:26:38 +0000
commit826eb267e9c472caa33e610f897b43485bb8b7bb (patch)
tree487f77e9d3a9f172cab0ea25e1e3b070566dbf55 /Master/texmf-dist/tex/latex/aramaic-serto/serto.sty
parenta922f4993d5ce75584e05a345cf4ad0d98993f3c (diff)
aramaic-serto
git-svn-id: svn://tug.org/texlive/trunk@30042 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/aramaic-serto/serto.sty')
-rw-r--r--Master/texmf-dist/tex/latex/aramaic-serto/serto.sty131
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+