summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/aramaic-serto/syriac.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/syriac.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/syriac.sty')
-rw-r--r--Master/texmf-dist/tex/latex/aramaic-serto/syriac.sty67
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
+