diff options
author | Karl Berry <karl@freefriends.org> | 2013-04-19 18:26:38 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-04-19 18:26:38 +0000 |
commit | 826eb267e9c472caa33e610f897b43485bb8b7bb (patch) | |
tree | 487f77e9d3a9f172cab0ea25e1e3b070566dbf55 /Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty | |
parent | a922f4993d5ce75584e05a345cf4ad0d98993f3c (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/syriac.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty b/Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty new file mode 100644 index 00000000000..271fa781dfe --- /dev/null +++ b/Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty @@ -0,0 +1,67 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% syriac.sty +%% DO NOT LOAD DIRECTLY. USED BY serto.sty and assyr.sty +%% For the use of serto fonts within LaTeX +%% Last modified 8th November 2003 +%% Johannes Heinecke, Lannion + +% Taken from exaccent.sty (Tipa package) +% usage \loweraccent[distance]{accent}{letter} +\newcommand\lowersyriac{\@ifnextchar[{\lower@syriac a\empty}% + {\lower@syriac a\empty[\z@]}} +\newcommand\uppersyriac{\@ifnextchar[{\upper@syriac a\empty}% + {\upper@syriac a\empty[\z@]}} + +\def\upper@syriac#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@syriac#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 + |